File Coverage

blib/lib/Thrift/IDL/TypeDef.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package Thrift::IDL::TypeDef;
2              
3             =head1 NAME
4              
5             Thrift::IDL::TypeDef
6              
7             =head1 DESCRIPTION
8              
9             Inherits from L
10              
11             =cut
12              
13 6     6   37 use strict;
  6         12  
  6         192  
14 6     6   32 use warnings;
  6         12  
  6         155  
15 6     6   33 use base qw(Thrift::IDL::Definition);
  6         9  
  6         6166  
16             __PACKAGE__->mk_accessors(qw(type name));
17              
18             =head1 METHODS
19              
20             =head2 type
21              
22             =head2 name
23              
24             Scalar accessors
25              
26             =cut
27              
28             sub to_str {
29 13     13 0 27 my ($self) = @_;
30 13         50 return sprintf 'typedef "%s" isa %s', $self->name, $self->type;
31             }
32              
33             1;