File Coverage

blib/lib/DynScalar.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	14	16	87.5

package DynScalar;

$VERSION = '1.02';

use overload (
  '""' => sub { $_[0]->() },
  fallback => 1,
);


sub import {
  my $pkg = caller;
  my $name = (@_ == 1) ? 'dynamic' : pop;
  *{"${pkg}::$name"} = \&dynamic;
}


sub dynamic (&) { bless shift }


1;

__END__