File Coverage

gen/syn-PerlBean_Collection.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

use strict;
use PerlBean;
use PerlBean::Collection;
use PerlBean::Attribute::Factory;

my $bean = PerlBean->new( {
    package => 'Athlete',
} );
my $factory = PerlBean::Attribute::Factory->new();
my $attr = $factory->create_attribute( {
    method_factory_name => 'name',
    short_description => 'the name of the athlete',
} );
$bean->add_method_factory($attr);

my $bean2 = PerlBean->new( {
    package => 'Cyclist',
    base => [ qw(Athlete)],
} );
my $factory = PerlBean::Attribute::Factory->new();
my $attr2 = $factory->create_attribute( {
    method_factory_name => 'cycle',
    short_description => 'the cyclist\'s cycle',
} );
$bean2->add_method_factory($attr2);

my $collection = PerlBean::Collection->new();
$collection->add_perl_bean($bean);
$collection->add_perl_bean($bean2);
$collection->write('tmp');
1;