File Coverage

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   55 use strict;
  9         22  
  9         265  
4 9     9   17547 use subs qw();
  9         127  
  9         233  
5 9     9   49 use vars qw($VERSION);
  9         19  
  9         1234  
6              
7             $VERSION = "2.301";
8              
9             sub visitor {
10 17     17 0 44 my( $self, $visitor ) = @_;
11              
12 17 50 33     212 unless( ref $visitor and $visitor->can('visit') ) {
13 0         0 return;
14             }
15              
16 17         74 return $visitor->visit( $self );
17             }
18              
19             1;
20              
21             __END__