File Coverage

blib/lib/assign/Types.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod			n/a
total	32	32	100.0

use strict; use warnings;
package assign::Types;


#------------------------------------------------------------------------------
package var;

sub new {
    my ($class, $var, $def) = @_;
    bless {
        var => $var,
        def => $def,
    }, $class;
}

sub val { $_[0]->{var} }

sub sigil { substr($_[0]->{var}, 0, 1) }



#------------------------------------------------------------------------------
package skip;

sub new {
    my ($class) = @_;
    my $skip = '_';
    bless \$skip, $class;
}

sub val { ${$_[0]} }



#------------------------------------------------------------------------------
package skip_num;
use overload '""', \&stringify;

sub new {
    my ($class, $num) = @_;
    bless \$num, $class;
}

sub val { ${$_[0]} }

1;