blib/lib/Netscape/Bookmarks/AcceptVisitor.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 12 | 13 | 92.3 |
branch | 1 | 2 | 50.0 |
condition | 1 | 3 | 33.3 |
subroutine | 4 | 4 | 100.0 |
pod | 0 | 1 | 0.0 |
total | 18 | 23 | 78.2 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package Netscape::Bookmarks::AcceptVisitor; | ||||||
2 | |||||||
3 | 9 | 9 | 83 | use strict; | |||
9 | 29 | ||||||
9 | 307 | ||||||
4 | 9 | 9 | 2692 | use subs qw(); | |||
9 | 133 | ||||||
9 | 230 | ||||||
5 | 9 | 9 | 51 | use vars qw($VERSION); | |||
9 | 18 | ||||||
9 | 1176 | ||||||
6 | |||||||
7 | $VERSION = "2.303"; | ||||||
8 | |||||||
9 | sub visitor { | ||||||
10 | 17 | 17 | 0 | 55 | my( $self, $visitor ) = @_; | ||
11 | |||||||
12 | 17 | 50 | 33 | 189 | unless( ref $visitor and $visitor->can('visit') ) { | ||
13 | 0 | 0 | return; | ||||
14 | } | ||||||
15 | |||||||
16 | 17 | 67 | return $visitor->visit( $self ); | ||||
17 | } | ||||||
18 | |||||||
19 | 1; | ||||||
20 | |||||||
21 | __END__ |