File Coverage

blib/lib/Class/Scaffold/Context.pm

Criterion	Covered	Total	%
statement	19	22	86.3
branch	1	6	16.6
condition			n/a
subroutine	6	7	85.7
pod	2	2	100.0
total	28	37	75.6

use 5.008;
use warnings;
use strict;

package Class::Scaffold::Context;
BEGIN {
  $Class::Scaffold::Context::VERSION = '1.102280';
}
# ABSTRACT: Holds execution and job context
use parent 'Class::Scaffold::Base';
__PACKAGE__->mk_scalar_accessors(qw(execution job));

# types of execution context: cron, apache, shell, soap
# types of job context: mail, sif, epp
# takes something like 'run/epp' and sets execution and job context
sub parse_context {
    my ($self, $spec) = @_;
    if ($spec =~ m!^(\w+)/(\w+)$!) {
        my ($job, $execution) = ($1, $2);
        $self->execution($execution);
        $self->job($job);
    } else {
        throw Error::Hierarchy::Internal::CustomMessage(
            custom_message => "Invalid context specification [$spec]",);
    }
    $self;
}

sub as_string {
    my $self = shift;
    sprintf '%s/%s',
      (defined $self->job       ? $self->job       : 'none'),
      (defined $self->execution ? $self->execution : 'none');
}
1;


__END__