File Coverage

blib/lib/WWW/Dict.pm
Criterion Covered Total %
statement 18 20 90.0
branch 3 4 75.0
condition n/a
subroutine 5 6 83.3
pod 2 2 100.0
total 28 32 87.5


line stmt bran cond sub pod time code
1             package WWW::Dict;
2 3     3   59560 use v5.8.0;
  3         11  
  3         138  
3 3     3   14 use warnings;
  3         4  
  3         73  
4 3     3   13 use strict;
  3         8  
  3         150  
5             our $VERSION = '0.0.1';
6              
7 3     3   4036 use UNIVERSAL::require;
  3         5077  
  3         66  
8              
9              
10             sub new {
11 2     2 1 21 my $class = shift;
12 2 50       10 if ($class eq __PACKAGE__) {
13 2         4 my $driver = shift;
14 2         9 my $subclass = __PACKAGE__ . "::$driver";
15 2 100       17 $subclass->require or die $@;
16 1         250 return bless { }, $subclass;
17             }
18              
19 0           return bless { }, $class;
20             }
21              
22             sub define {
23 0     0 1   die ("Sub-class of WWW::Dict must override 'define' method!");
24             }
25              
26             1; # Magic true value required at end of module
27             __END__