File Coverage

blib/lib/Object/Meta/Plugin.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: Plugin.pm,v 1.17 2003/12/10 03:52:30 nothingmuch Exp $
3              
4             package Object::Meta::Plugin; # base class for a plugin
5              
6 2     2   1082 use strict;
  2         4  
  2         60  
7 2     2   11 use warnings;
  2         2  
  2         55  
8              
9 2     2   2895 use autouse Carp => qw(croak);
  2         5961  
  2         15  
10              
11             our $VERSION = "0.02_04";
12              
13             sub init { # defined.
14 0     0 1   my $self = shift;
15 0           croak "init must be defined by sublclass";
16             }
17              
18             1; # Keep your mother happy.
19              
20             __END__