File Coverage

blib/lib/Tie/Hash/MultiKey/ExtensionPrototype.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1              
2             package Tie::Hash::MultiKey::ExtensionPrototype;
3              
4 12     12   9994 use strict;
  12         25  
  12         435  
5 12     12   9009 use Tie::Hash::MultiKey;
  12         39  
  12         422  
6 12     12   106 use vars qw( $VERSION @ISA );
  12         22  
  12         1490  
7              
8             $VERSION = do { my @r = (q$Revision: 0.01 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
9              
10             @ISA = qw( Tie::Hash::MultiKey );
11              
12             =head1 NAME
13              
14             Tie::Hash::MultiKey::ExtensionPrototype
15              
16             =head1 SYNOPSIS
17              
18             use Tie::Hash::MultiKey::ExtensionPrototype;
19              
20             =head1 DESCRIPTION
21              
22             This module is a shell to test inheritance and extension capability
23             of Tie::Hash::MultiKey
24              
25             =head1 AUTHOR
26              
27             Michael Robinton,
28              
29             =head1 COPYRIGHT
30              
31             Copyright 2014, Michael Robinton
32              
33             This program is free software; you may redistribute it and/or modify it
34             under the same terms as Perl itself.
35              
36             This program is distributed in the hope that it will be useful,
37             but WITHOUT ANY WARRANTY; without even the implied warranty of
38             MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
39              
40             =cut
41              
42             1;