File Coverage

lib/POEST/Plugin.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             # $Id: Plugin.pm,v 1.3 2003/04/08 00:27:30 cwest Exp $
2             package POEST::Plugin;
3              
4 1     1   1088 use strict;
  1         3  
  1         61  
5             $^W = 1;
6              
7 1     1   5 use vars qw[$VERSION];
  1         2  
  1         70  
8             $VERSION = (qw$Revision: 1.3 $)[1];
9              
10 1     1   458 use POE qw[Component::Server::SMTP];
  0            
  0            
11             use Carp;
12              
13             sub import {
14             my ($class) = @_;
15             my ($caller) = (caller)[0];
16            
17             {
18             eval qq[
19             package $caller;
20             use POE qw[Component::Server::SMTP];
21             use Carp;
22             package $class;
23             ];
24             croak $@ if $@;
25             }
26             }
27              
28             sub CONFIG () { [ ] }
29              
30             sub new {
31             my ($class, %args) = @_;
32              
33             return bless \%args, $class;
34             }
35              
36             1;
37              
38             __END__