File Coverage

blib/lib/Acme/Orange.pm
Criterion Covered Total %
statement 19 19 100.0
branch 3 4 75.0
condition n/a
subroutine 7 7 100.0
pod 2 3 66.6
total 31 33 93.9


line stmt bran cond sub pod time code
1             package Acme::Orange;
2 1     1   46126 use Acme::Colour;
  1         2  
  1         6  
3              
4 1     1   47 use 5.004;
  1         3  
  1         32  
5 1     1   5 use strict;
  1         6  
  1         35  
6              
7             require Exporter;
8 1     1   5 use vars qw($VERSION @ISA);
  1         1  
  1         172  
9             @ISA = 'Acme::Colour';
10              
11             $VERSION = '0.03';
12              
13             sub default {
14 2     2 1 75 return 'orange';
15             }
16              
17             sub new {
18 2     2 1 728 my $class = shift;
19 2         3 my $colour = shift;
20 2 100       6 if (defined $colour) {
21 1 50       4 undef $colour unless $colour =~ /orange/i;
22             }
23             # I can't remember if there is a better way to do this with SUPER::
24             # Patches welcome...
25 2         9 Acme::Colour::new ($class, $colour, @_);
26             }
27              
28             sub closest {
29 2     2 0 4099 return 'orange';
30             }
31              
32             *_closest = \*closest;
33              
34             __END__