File Coverage

blib/lib/AI/General.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 21 57.1


line stmt bran cond sub pod time code
1             package AI::General;
2              
3 1     1   6336 use 5.008;
  1         4  
  1         37  
4 1     1   5 use strict;
  1         1  
  1         32  
5 1     1   4 use warnings;
  1         6  
  1         171  
6              
7              
8             our $VERSION = '0.01';
9              
10              
11             sub new {
12 0     0 0   my ( $class ) = @_;
13 0           my $self = bless [], $class;
14 0           $self->dwim( "Implement self" );
15 0           return $self;
16             }
17              
18              
19             sub dwim {
20 0     0 0   my ( $self, $args ) = @_;
21              
22             #... TO DO
23             }
24            
25              
26             1;
27              
28              
29             __END__