File Coverage

blib/lib/Class/Scaffold/App/Test.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	26	26	100.0

use 5.008;
use warnings;
use strict;

package Class::Scaffold::App::Test;
BEGIN {
  $Class::Scaffold::App::Test::VERSION = '1.102280';
}
# ABSTRACT: Base class for test programs
use parent 'Class::Scaffold::App::CommandLine';

sub app_code {
    my $self = shift;
    $self->SUPER::app_code(@_);
    $self->delegate->make_obj('test_util_loader');
    $self->delegate->set_rollback_mode;
    $self->delegate->test_mode(1);

    # We're not going through Environment's make_obj(), so we have
    # to connect manually.
    $self->delegate->core_storage->test_setup;
}
1;

__END__