File Coverage

blib/lib/Thrift/IDL/Struct.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	4	5	80.0
total	32	33	96.9

package Thrift::IDL::Struct;

=head1 NAME

Thrift::IDL::Struct

=head1 DESCRIPTION

Inherits from L

=cut

use strict;
use warnings;
use base qw(Thrift::IDL::Definition);
__PACKAGE__->mk_accessors(qw(name children));

=head1 METHODS

=head2 name

=head2 children

Scalar accessors

=head2 fields

Returns array ref of L children

=head2 field_named ($name)

=head2 field_id ($id)

Returns object found in fields array with given key value

=cut

sub to_str {
    return $_[0]->name . ' ('
        . join (', ', map { '' . $_ } @{ $_[0]->fields })
        . ')';
}

sub fields {
    my $self = shift;
    $self->children_of_type('Thrift::IDL::Field');
}

sub field_named {
    my ($self, $name) = @_;
    $self->array_search($name, 'fields', 'name');
}

sub field_id {
    my ($self, $name) = @_;
    $self->array_search($name, 'fields', 'id');
}

sub setup {
    my $self = shift;
	$self->_setup('children');
}

1;