File Coverage

gen/attr-PerlBean_Dependency_Require.pl

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

use strict;

push(@::bean_desc, {
    bean_opt => {
        abstract => 'Require dependency in a Perl bean',
        package => 'PerlBean::Dependency::Require',
        use_perl_version => 5.005,
        base => [ qw( PerlBean::Dependency ) ],
        description => <
C is a class to express C dependencies to classes/modules/files in a C.
EOF
        short_description => 'Require dependency in a Perl bean',
        synopsis => "TODO\n",
    },
    meth_opt => [
        {
            method_name => 'write',
            body => <<'EOF',
    my $self = shift;
    my $fh = shift;

    my $dn = $self->get_dependency_name();

    $fh->print( "require $dn;\n" )
EOF
        },
    ],
} );

1;