File Coverage

blib/lib/Pipe/Between/Object.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	4	0.0
total	34	38	89.4

package Pipe::Between::Object;

use 5.012001;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Pipe::Between::Object ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.01';


# Preloaded methods go here.

sub new {
	my $class = shift;
	my $self = {
		data => [],
	};
	return bless($self, $class);
}

sub count {
	my $self = shift;
	return 1 + $#{ $self->{data} };
}

sub push {
	my $self = shift;
	my $var = shift;
	push(@{ $self->{data} }, $var);
}

sub pull {
	my $self = shift;
	if(@{$self->{data}}) {
		return (shift(@{ $self->{data} }), 0);
	}
	else {
		return (undef, 1);
	}
}

1;
__END__