File Coverage

blib/lib/Test/DatabaseRow/Result.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch	4	4	100.0
condition	4	4	100.0
subroutine	12	12	100.0
pod	6	8	75.0
total	70	72	97.2

package Test::DatabaseRow::Result;

use strict;
use warnings;

our $VERSION = "2.01";

use Carp qw(croak);

## constructor #########################################################

# emulate moose somewhat by calling a _coerce_and_verify_XXX method
# if one exists
sub new {
  my $class = shift;
  my $self = bless {}, $class;
  while (@_) {
    my $key = shift;
    my $value = shift;
    my $method = $self->can("_coerce_and_verify_$key");
    $self->{ $key } = $method ? $method->($self,$value) : $value;
  }
  return $self;
}

## accessors ############################################################

# has is_error => ( is => "ro", isa => "Bool", default => 0,
#                   predicate => 'has_error' )
sub is_error {
	my $self = shift;
	$self->{is_error} ||= 0;
	return $self->{is_error};
}
sub has_is_error { my $self = shift; return exists $self->{is_error} }

# has diag => ( is => "rw", isa => "ArrayRef",  default => sub {[]},
#               predicate => "has_diag",
#               traits => ['Array'], handles => { add_diag => 'push' })
sub diag {
	my $self = shift;
	$self->{diag} ||= [];
	return $self->{diag};
}
sub has_diag { my $self = shift; return exists $self->{diag} }
sub _coerce_and_verify_diag {
	my $self = shift;
	my $diag = shift;
	croak "Invalid argument to diag" unless ref($diag) eq "ARRAY";
	return $diag;
}
sub add_diag {
	my $self = shift;
	push @{ $self->diag }, @_;
	return;
}

## methods #############################################################

sub pass_to_test_builder {
	my $self = shift;
	my $description = shift;

  # get the test builder singleton
  my $tester = Test::Builder->new();

 	my $result = $tester->ok($self->is_success, $description);
 	$tester->diag($_) foreach @{ $self->diag };
 	return $result;
}

sub is_success {
	my $self = shift;
	return !$self->is_error;
}

1;

__END__