File Coverage

blib/lib/POE/Component/SmokeBox/Backend/Base.pm

Criterion	Covered	Total	%
statement	20	23	86.9
branch	5	8	62.5
condition			n/a
subroutine	7	8	87.5
pod	5	5	100.0
total	37	44	84.0

package POE::Component::SmokeBox::Backend::Base;
$POE::Component::SmokeBox::Backend::Base::VERSION = '0.56';
#ABSTRACT: Base class for Backend smokers.

use strict;
use warnings;

sub new {
  my $package = shift;
  my %opts = @_;
  $opts{lc $_} = delete $opts{$_} for keys %opts;
  my $self = bless \%opts, $package;
  $self->_data();
  return $self;
}

sub _data {
  my $self = shift;
  $self->{_data} =
  {
	  check  => [ 'DUMMY' ],
	  index  => [ 'DUMMY' ],
	  smoke  => [ 'DUMMY' ],
    digest => [ 'DUMMY' ],
  };
  return;
}

sub check {
  my $self = shift;
  return $self->{_data}->{'check'} if $self->{_data}->{'check'};
}

sub index {
  my $self = shift;
  return $self->{_data}->{'index'} if $self->{_data}->{'index'};
}

sub smoke {
  my $self = shift;
  return $self->{_data}->{'smoke'} if $self->{_data}->{'smoke'};
}

sub digest {
  my $self = shift;
  return $self->{_data}->{'digest'} if $self->{_data}->{'digest'};
}

1;

__END__