File Coverage

blib/lib/AnyEvent/Stomper/Frame.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	1	1	100.0
total	30	33	90.9

package AnyEvent::Stomper::Frame;

use 5.008000;
use strict;
use warnings;

our $VERSION = '0.36';

use Encode qw( decode );


sub new {
  my $class   = shift;
  my $command = shift;
  my $headers = shift;
  my $body    = shift;

  my $self = bless {}, $class;

  $self->{command} = $command;
  $self->{headers} = $headers;
  $self->{body}    = $body;

  return $self;
}

# Generate getters
{
  no strict qw( refs );

  foreach my $name ( qw( command headers body ) )
  {
    *{$name} = sub {
      my $self = shift;
      return $self->{$name};
    }
  }
}

1;
__END__