| blib/lib/WWW/Google/Groups/Article.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 6 | 8 | 75.0 |
| branch | 0 | 2 | 0.0 |
| condition | n/a | ||
| subroutine | 2 | 3 | 66.6 |
| pod | 0 | 1 | 0.0 |
| total | 8 | 14 | 57.1 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | # $Id: Article.pm,v 1.7 2003/09/15 13:49:48 cvspub Exp $ | ||||||
| 2 | package WWW::Google::Groups::Article; | ||||||
| 3 | 1 | 1 | 6 | use strict; | |||
| 1 | 2 | ||||||
| 1 | 41 | ||||||
| 4 | |||||||
| 5 | 1 | 1 | 769 | use Email::Simple; | |||
| 1 | 6148 | ||||||
| 1 | 81 | ||||||
| 6 | |||||||
| 7 | sub new { | ||||||
| 8 | 0 | 0 | 0 | my ($pkg, $message) = @_; | |||
| 9 | 0 | 0 | return $$message ? Email::Simple->new($$message) : undef; | ||||
| 10 | } | ||||||
| 11 | |||||||
| 12 | 1; | ||||||
| 13 | __END__ |