| blib/lib/URI/imap.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 9 | 10 | 90.0 |
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 3 | 4 | 75.0 |
| pod | 1 | 1 | 100.0 |
| total | 13 | 15 | 86.6 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | package URI::imap; | ||||||
| 2 | # $Id: imap.pm,v 1.1 2004/08/07 19:17:46 cwest Exp $ | ||||||
| 3 | 1 | 1 | 1048 | use strict; | |||
| 1 | 3 | ||||||
| 1 | 47 | ||||||
| 4 | |||||||
| 5 | 1 | 1 | 5 | use vars qw[$VERSION]; | |||
| 1 | 2 | ||||||
| 1 | 92 | ||||||
| 6 | $VERSION = sprintf "%d.%02d", split m/\./, (qw$Revision: 1.1 $)[1]; | ||||||
| 7 | |||||||
| 8 | 1 | 1 | 15 | use base qw[URI::_server]; | |||
| 1 | 1 | ||||||
| 1 | 1059 | ||||||
| 9 | |||||||
| 10 | 0 | 0 | 1 | sub default_port { 143 } | |||
| 11 | |||||||
| 12 | 1; | ||||||
| 13 | |||||||
| 14 | __END__ |