File Coverage

blib/lib/Data/Conveyor/Service/Result.pm

Criterion	Covered	Total	%
statement	19	26	73.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	7	10	70.0
pod	3	3	100.0
total	29	44	65.9

use 5.008;
use strict;
use warnings;

package Data::Conveyor::Service::Result;
BEGIN {
  $Data::Conveyor::Service::Result::VERSION = '1.103130';
}
# ABSTRACT: Stage-based conveyor-belt-like ticket handling system

use YAML;
use overload
  '""'     => 'stringify',
  fallback => 1;
use parent 'Data::Conveyor::Service';
__PACKAGE__->mk_scalar_accessors(qw(result exception));

sub is_ok {
    my $self = shift;
    my $E    = $self->exception;
    !(defined $E && ref $E);
}

sub stringify {
    my $self = shift;
    return sprintf("%s\n", $self->exception) unless $self->is_ok;
    $self->result_as_string;
}

# dummy; subclasses should override this
sub result_as_string { sprintf "%s" => $_[0]->result }
1;


__END__