File Coverage

blib/lib/JLogger/Transport.pm

Criterion	Covered	Total	%
statement	15	28	53.5
branch	3	10	30.0
condition	1	2	50.0
subroutine	4	13	30.7
pod	6	10	60.0
total	29	63	46.0

package JLogger::Transport;

use strict;
use warnings;

require Carp;

sub new {
    my ($class, %args) = @_;

    Carp::croak('Required "host" argument missing!')
      unless exists $args{host};

    Carp::croak('Required "port" argument missing!')
      unless exists $args{port};

    Carp::croak('Required "secret" argument missing!')
      unless exists $args{secret};

    $args{on_disconnect} ||= sub {};

    my $self = bless {%args}, $class;

    $self->init;

    $self;
}

sub domain { $_[0]->{domain} }

sub host { $_[0]->{host} }

sub port { $_[0]->{port} }

sub secret { $_[0]->{secret} }

sub on_message {
    @_ > 1 ? $_[0]->{on_message} = $_[1] : $_[0]->{on_message};
}

sub on_disconnect {
    @_ > 1 ? $_[0]->{on_disconnect} = $_[1] : $_[0]->{on_disconnect};
}

sub init {

}

sub connect {
    my $self = shift;

    Carp::croak(qq(You didn't implemented "connect" in @{[ ref $self ]}));
}

sub disconnect {
    my $self = shift;

    Carp::croak(qq(You didn't implemented "disconnect" in @{[ ref $self ]}));
}

1;
__END__