File Coverage

blib/lib/Net/Peep/Notification.pm

Criterion	Covered	Total	%
statement	15	39	38.4
branch	0	10	0.0
condition	0	3	0.0
subroutine	5	11	45.4
pod	0	6	0.0
total	20	69	28.9

package Net::Peep::Notification;

require 5.005;
use strict;
use Carp;
use Data::Dumper;
use Net::Peep::Log;

require Exporter;

use vars qw{ @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION $LOGGER };

@ISA = qw(Exporter);
%EXPORT_TAGS = ( );
@EXPORT_OK = ( );
@EXPORT = qw( );
$VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

$LOGGER = Net::Peep::Log->new();

sub new {

    my $self = shift;
    my $class = ref($self) || $self;
    my $this = {};
    bless $this, $class;

} # end sub new

sub message {

    my $self = shift;
    if (@_) { $self->{_MESSAGE} = shift; }
    return $self->{_MESSAGE};

} # end sub message

sub status {

    my $self = shift;
    if (@_) { $self->{_STATUS} = shift; }
    return $self->{_STATUS};

} # end sub status

sub datetime {

    my $self = shift;
    if (@_) { $self->{_DATETIME} = shift; }
    return $self->{_DATETIME};

} # end sub datetime

sub client {

    my $self = shift;
    if (@_) { $self->{_CLIENT} = shift; }
    return $self->{_CLIENT};

} # end sub client

sub hostname {

    my $self = shift;
    if (@_) { $self->{_HOSTNAME} = shift; }
    return $self->{_HOSTNAME};

} # end sub hostname

1;

__END__