File Coverage

blib/lib/Data/Conveyor/Storage/Null.pm

Criterion	Covered	Total	%
statement	13	23	56.5
branch			n/a
condition			n/a
subroutine	5	8	62.5
pod	3	3	100.0
total	21	34	61.7

use 5.008;
use strict;
use warnings;

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

use parent qw(
  Class::Scaffold::Delegate::Mixin
  Data::Storage::Null
);

sub generate_ticket_no {
    my $self = shift;
    $self->delegate->make_obj('test_ticket')->gen_temp_ticket_no;
}

sub keywords_store {
    my ($self, $ticket, $keyword_container) = @_;
    our %store;
    $store{ticket}{ $ticket->ticket_no }{keyword_container} =
      $keyword_container;
}

sub keywords_read {
    my ($self, $ticket) = @_;
    our %store;
    my $container = $store{ticket}{ $ticket->ticket_no }{keyword_container};
    $container->dirty(1);
    $ticket->keywords($container);
}
1;


__END__