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.9 2003/11/29 14:48:37 nothingmuch Exp $
3              
4             #$$$
5             # to do:
6             # circular reference crap. make sure all references which should be weak are weakened.
7              
8             package Object::Meta::Plugin; # base class for a plugin
9              
10 4     4   1944 use strict;
  4         6  
  4         119  
11 4     4   20 use warnings;
  4         6  
  4         109  
12              
13 4     4   5762 use autouse Carp => qw(croak);
  4         3132  
  4         21  
14              
15             our $VERSION = 0.01;
16              
17             sub init { # defined.
18 0     0 1   my $self = shift;
19 0           croak "init must be defined by sublclass";
20             }
21              
22             1; # Keep your mother happy.
23              
24             __END__