File Coverage

blib/lib/Thrift/Parser/Type/string.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 2 2 100.0
total 30 30 100.0


line stmt bran cond sub pod time code
1             package Thrift::Parser::Type::string;
2              
3             =head1 NAME
4              
5             Thrift::Parser::Type::string - string type
6              
7             =cut
8              
9 6     6   32 use strict;
  6         14  
  6         262  
10 6     6   32 use warnings;
  6         11  
  6         18798  
11 6     6   6771 use utf8;
  6         70  
  6         36  
12 6     6   294 use base qw(Thrift::Parser::Type);
  6         13  
  6         726  
13              
14             =head1 USAGE
15              
16             Aside from standard L methods, we are overloaded to return the plain string value.
17              
18             =cut
19              
20 6     6   37 use overload '""' => sub { $_[0]->value };
  6     4   12  
  6         83  
  4         11056  
21              
22             sub values_equal {
23 7     7 1 600 my ($class, $value_a, $value_b) = @_;
24 7         34 return $value_a eq $value_b;
25             }
26              
27             sub value_plain {
28 4     4 1 100 my $self = shift;
29 4         24 return $self->value;
30             }
31              
32             =head1 COPYRIGHT
33              
34             Copyright (c) 2009 Eric Waters and XMission LLC (http://www.xmission.com/). All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
35              
36             The full text of the license can be found in the LICENSE file included with this module.
37              
38             =head1 AUTHOR
39              
40             Eric Waters
41              
42             =cut
43              
44             1;