File Coverage

support/Test/Harness/Assert.pm
Criterion Covered Total %
statement 8 13 61.5
branch 1 4 25.0
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 13 21 61.9


line stmt bran cond sub pod time code
1             package Test::Harness::Assert;
2              
3 1     1   15 use strict;
  1         9  
  1         15  
4             require Exporter;
5 1     1   14 use vars qw($VERSION @EXPORT @ISA);
  1         9  
  1         15  
6              
7             $VERSION = '0.02';
8              
9             @ISA = qw(Exporter);
10             @EXPORT = qw(assert);
11              
12              
13             =head1 NAME
14            
15             Test::Harness::Assert - simple assert
16            
17             =head1 SYNOPSIS
18            
19             ### FOR INTERNAL USE ONLY ###
20            
21             use Test::Harness::Assert;
22            
23             assert( EXPR, $name );
24            
25             =head1 DESCRIPTION
26            
27             A simple assert routine since we don't have Carp::Assert handy.
28            
29             B<For internal use by Test::Harness ONLY!>
30            
31             =head1 FUNCTIONS
32            
33             =head2 C<assert()>
34            
35             assert( EXPR, $name );
36            
37             If the expression is false the program aborts.
38            
39             =cut
40              
41             sub assert ($;$) {
42 50393     50393 1 1742471     my($assert, $name) = @_;
43              
44 50393 50       1802707     unless( $assert ) {
45 0                   require Carp;
46 0                   my $msg = 'Assert failed';
47 0 0                 $msg .= " - '$name'" if defined $name;
48 0                   $msg .= '!';
49 0                   Carp::croak($msg);
50                 }
51              
52             }
53              
54             =head1 AUTHOR
55            
56             Michael G Schwern C<< <schwern at pobox.com> >>
57            
58             =head1 SEE ALSO
59            
60             L<Carp::Assert>
61            
62             =cut
63              
64             1;
65