File Coverage

blib/lib/Klonk/Handle.pm

Criterion	Covered	Total	%
statement	6	21	28.5
branch	0	10	0.0
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	37	27.0

package Klonk::Handle 0.01;
use Klonk::pragma;
use parent 'IO::Handle';

method openr($class: $file) {
    open my $fh, '<:raw', $file
        or return undef;
    ${*$fh} = $file;
    bless $fh, $class
}

method path() {
    ${*$self}
}

1
__END__