File Coverage

blib/lib/Acme/SvGROW.pm

Criterion	Covered	Total	%
statement	5	7	71.4
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod	0	1	0.0
total	7	10	70.0

package Acme::SvGROW;

require Exporter;
@ISA = qw(Exporter);

@EXPORT = qw(
	SvGROW
);

$VERSION = '0.03';
if (eval <<'dgrowp'
   use Data::Peek 'DGrow';
   1;
dgrowp
){
   eval <<'LVAL' or eval <<'NOLVAL' or die "DGrow sub failed: $@"

     sub SvGROW($$) : lvalue {
        DGrow($_[0],$_[1]);
        $_[0]
     }
     1;
LVAL

     sub SvGROW($$) {
        DGrow($_[0],$_[1]);
        $_[0]
     }
NOLVAL

}
else
{
   eval <<'LVAL' or eval <<'NOLVAL'

     sub SvGROW($$) : lvalue {
        my $tmp = $_[0];
        $_[0] = pack 'x'.int(0+$_[1]);
        $_[0] = $tmp;
        $_[0]
     }
     1;
LVAL

     sub SvGROW($$) {
        my $tmp = $_[0];
        $_[0] = pack 'x'.int(0+$_[1]);
        $_[0] = $tmp;
        $_[0]
     }
NOLVAL

};

1;
__END__