File Coverage

blib/lib/Email/AutoReply/DB.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Email::AutoReply::DB;
2             our $rcsid = '$Id: DB.pm 3002 2008-06-05 20:23:24Z adam $';
3              
4 1     1   4 use strict;
  1         2  
  1         30  
5 1     1   7 use warnings;
  1         2  
  1         25  
6              
7 1     1   5 use Spiffy '-Base';
  1         2  
  1         8  
8 1     1   740  
  1     1   11  
  1         46  
  1         6  
  1         2  
  1         87  
9             =head1 NAME
10              
11             Email::AutoReply::DB - interface defining Email::AutoReply database interaction
12              
13             =head1 DESCRIPTION
14              
15             Email::AutoReply keeps track of who it's sent email to and when. Any subclass
16             of this class can be used for this purpose. Subclassers must implement all
17             methods.
18              
19             =head2 METHODS
20              
21             =over 4
22              
23             =item B
24              
25             Store an Email::AutoReply::Recipient in the database.
26              
27             Input: Takes one argument, a (populated) Email::AutoReply::Recipient object.
28              
29             Output: none.
30              
31             =cut
32              
33             stub 'store';
34              
35             =item B
36              
37             Fetch an Email::AutoReply::Recipient from the database, if one exists.
38              
39             Input: Takes one string argument, an email address.
40              
41             Output: A populated Email::AutoReply::Recipient or 0 if none could be
42             found matching the given string.
43              
44             =cut
45              
46             stub 'fetch';
47              
48             =item B
49              
50             Fetch all Email::AutoReply::Recipient objects from the database, if any exist.
51              
52             Input: none.
53              
54             Output: A list of Email::AutoReply::Recipient objects, or zero.
55              
56             =cut
57              
58             stub 'fetch_all';
59              
60             return 1;
61              
62             __END__