File Coverage

blib/lib/Object/Meta/Plugin/Useful/Meta.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 16 81.2


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2             # $Id: Meta.pm,v 1.8 2003/12/10 02:39:55 nothingmuch Exp $
3              
4             package Object::Meta::Plugin::Useful::Meta; # a plugin base class which subclasses Object::Meta::Plugin::Host - a meta plugin
5              
6 1     1   834 use strict;
  1         2  
  1         28  
7 1     1   26 use warnings;
  1         2  
  1         25  
8              
9 1     1   5 use base qw/Object::Meta::Plugin::Host Object::Meta::Plugin::Useful/;
  1         2  
  1         226  
10              
11             our $VERSION = 0.01;
12              
13             sub exports {
14 0     0 1   keys %{ $_[0]->methods };
  0            
15             }
16              
17              
18             1; # Keep your mother happy.
19              
20             __END__