File Coverage

blib/lib/Object/Meta/Plugin/Useful.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2             # $Id: Useful.pm,v 1.7 2003/12/10 02:35:56 nothingmuch Exp $
3              
4             package Object::Meta::Plugin::Useful; # a base class for useful plugins, defines reasonable default methods
5              
6 2     2   11 use strict;
  2         4  
  2         60  
7 2     2   10 use warnings;
  2         4  
  2         47  
8              
9 2     2   9 use base 'Object::Meta::Plugin';
  2         3  
  2         677  
10              
11 2     2   1773 use Object::Meta::Plugin::ExportList;
  2         5  
  2         157  
12              
13             our $VERSION = 0.01;
14              
15             sub init {
16 1     1 1 13 my $self = shift;
17 1         10 Object::Meta::Plugin::ExportList->new($self, @_); # create a new export list, with the methods as stated in the call to plug, and save it for future reference
18             }
19              
20             1; # Keep your mother happy.
21              
22             __END__