File Coverage

blib/lib/Tie/Function.pm
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 20 95.0


line stmt bran cond sub pod time code
1             package Tie::Function;
2              
3 1     1   19978 use 5.006;
  1         5  
  1         445  
4             # use strict;
5             # use warnings;
6 1     1   10 no warnings; # slience "split on uninitialized value" when $_[key] is uninit
  1         3  
  1         514  
7              
8             our $VERSION = '0.02';
9 1     1   7 use Carp;
  1         7  
  1         367  
10              
11             sub OBJ(){0};
12             sub KEY(){1};
13             sub TIEHASH{
14 2 50   2   120 ref $_[1] eq 'CODE'
15             or croak "Tie argument must be a CODE reference";
16 2         6 bless $_[1];
17             }
18             sub FETCH{
19 5     5   155 &{$_[OBJ]}(split /$;/,$_[KEY]);
  5         14  
20             }
21              
22             1;
23             __END__