File Coverage

blib/lib/Thrift/IDL/Service.pm
Criterion Covered Total %
statement 15 15 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 2 3 66.6
total 25 26 96.1


line stmt bran cond sub pod time code
1             package Thrift::IDL::Service;
2              
3             =head1 NAME
4              
5             Thrift::IDL::Service
6              
7             =head1 DESCRIPTION
8              
9             Inherits from L
10              
11             =cut
12              
13 6     6   35 use strict;
  6         12  
  6         196  
14 6     6   30 use warnings;
  6         14  
  6         1165  
15 6     6   121 use base qw(Thrift::IDL::Definition);
  6         10  
  6         1362  
16             __PACKAGE__->mk_accessors(qw(name extends children));
17              
18             =head1 METHODS
19              
20             =head2 name
21              
22             =head2 extends
23              
24             =head2 children
25              
26             Scalar accessors
27              
28             =head2 methods
29              
30             Returns array ref of all L children
31              
32             =cut
33              
34             sub methods {
35 7     7 1 860 my $self = shift;
36 7         64 $self->children_of_type('Thrift::IDL::Method');
37             }
38              
39             =head2 method_named ($name)
40              
41             Return named method
42              
43             =cut
44              
45             sub method_named {
46 4     4 1 6861 my ($self, $name) = @_;
47 4         42 $self->array_search($name, 'methods', 'name');
48             }
49              
50             sub to_str {
51 11     11 0 34 my $self = shift;
52 11 100       1115 return $self->name . ($self->extends ? ' (extends ' . $self->extends . ') ' : '');
53             }
54              
55             1;