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   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__