File Coverage

gen/syn-PerlBean.pl
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1 1     1   719 use strict;
  1         2  
  1         49  
2 1     1   1081 use PerlBean;
  1         4  
  1         32  
3 1     1   586 use PerlBean::Attribute::Factory;
  1         2  
  1         79  
4              
5             my $bean = PerlBean->new( {
6             package => 'MyPackage',
7             } );
8             my $factory = PerlBean::Attribute::Factory->new();
9             my $attr = $factory->create_attribute( {
10             method_factory_name => 'true',
11             short_description => 'something is true',
12             } );
13             $bean->add_method_factory($attr);
14              
15 1     1   759 use IO::File;
  1         10354  
  1         190  
16             -d 'tmp' || mkdir('tmp');
17             my $fh = IO::File->new('> tmp/PerlBean.pl.out');
18             $bean->write($fh);
19             1;