File Coverage

blib/lib/Acme/BadFont.pm
Criterion Covered Total %
statement 19 21 90.4
branch 3 4 75.0
condition 2 3 66.6
subroutine 6 7 85.7
pod n/a
total 30 35 85.7


line stmt bran cond sub pod time code
1             package Acme::BadFont;
2 1     1   560 use strict;
  1         1  
  1         43  
3 1     1   8 use warnings;
  1         2  
  1         59  
4              
5             our $VERSION = '1.000000';
6             $VERSION =~ tr/_//d;
7              
8 1     1   5 use Scalar::Util qw(dualvar looks_like_number);
  1         2  
  1         41  
9 1     1   4 use overload ();
  1         1  
  1         201  
10              
11             sub import {
12             overload::constant(q => sub {
13 6     6   38 my $string = $_[1];
14 6         8 my $number = $string;
15 6 50 66     38 if (looks_like_number($number)) {
    100          
16 0         0 return $string;
17             }
18             elsif ($number =~ tr/OoIlZzEASsGBq/0011223455689/ and looks_like_number($number)) {
19 4         10 $number += 0;
20 4         62 return dualvar($number, $string);
21             }
22 2         13 return $string;
23 1     1   13 });
24             }
25              
26             sub unimport {
27 0     0     overload::remove_constant('q');
28             }
29              
30             1;
31             __END__