File Coverage

blib/lib/AnyEvent/Stomper/Error.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	29	29	100.0

package AnyEvent::Stomper::Error;

use 5.008000;
use strict;
use warnings;

our $VERSION = '0.33_01';

our %ERROR_CODES = (
  E_CANT_CONN                  => 1,
  E_IO                         => 2,
  E_CONN_CLOSED_BY_REMOTE_HOST => 3,
  E_CONN_CLOSED_BY_CLIENT      => 4,
  E_OPRN_ERROR                 => 5,
  E_UNEXPECTED_DATA            => 6,
  E_READ_TIMEDOUT              => 7,
);


sub new {
  my $class     = shift;
  my $err_msg   = shift;
  my $err_code  = shift;
  my $err_frame = shift;

  my $self = bless {}, $class;

  $self->{message} = $err_msg;
  $self->{code}    = $err_code;
  $self->{frame}   = $err_frame;

  return $self;
}

# Generate getters
{
  no strict qw( refs );

  foreach my $name ( qw( message code frame ) )
  {
    *{$name} = sub {
      my $self = shift;
      return $self->{$name};
    }
  }
}

1;
__END__