File Coverage

blib/lib/Acme/please.pm
Criterion Covered Total %
statement 19 19 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Acme::please;
2              
3 1     1   6813 use 5.00000;
  1         5  
  1         45  
4 1     1   6 use strict;
  1         3  
  1         43  
5              
6 1     1   4 use vars qw($VERSION $PLEASE $PCTG);
  1         6  
  1         177  
7              
8             $VERSION = '0.01';
9              
10             $PLEASE = ' please';
11             $PCTG = 25;
12              
13             sub TIESCALAR{
14 1     1   2 shift; #Package
15 1         4 my %P = (please => $PLEASE, pctg => $PCTG, @_);
16              
17 1         4077 bless \%P;
18             };
19              
20             sub FETCH{
21 10000 100   10000   48854 rand(100) > $_[0]->{pctg} and return '';
22 2521         6847 $_[0]->{please}
23             };
24              
25             sub import{
26 1     1   5 no strict 'refs';
  1         1  
  1         75  
27 1     1   7 tie ${caller().'::please'}, shift, @_;
  1         8  
28             };
29              
30             1;
31             __END__