File Coverage

blib/lib/Parse/Java/Token.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package Parse::Java::Token;
2              
3 6     6   34 use strict;
  6         1505  
  6         175  
4 6     6   28 use warnings;
  6         12  
  6         141  
5              
6 6     6   29 use Carp qw(croak);
  6         11  
  6         264  
7              
8 6     6   29 use base qw(Class::Accessor);
  6         12  
  6         587  
9              
10             __PACKAGE__->mk_accessors(qw(value line_no column));
11              
12 6     6   12175 use overload q{""} => \&as_string, fallback => 1;
  6         5742  
  6         56  
13              
14             sub as_string {
15 163     163 0 27244 my $self = shift;
16 163         640 return $self->value;
17             }
18              
19             1;
20             __END__