view _test/config.t @ 423:60c2892a577c ref20150831

working on base class system
author cin
date Mon, 02 Apr 2018 07:35:23 +0300
parents b0481c071bea
children
line wrap: on
line source

#!/usr/bin/perl -w
use strict;
use lib '../Lib';
use lib '.';

use IMPL::Debug();
use IMPL::Test qw(run_plan);

$IMPL::Debug::ENABLE{'IMPL::Config::YAMLConfig'} = 1;

IMPL::Debug->subscribe(sub {
    my $text = join('', @_);
    
    $text =~ s/^/# /gm;
    print "$text\n"; 
});

run_plan( qw(
    Test::Config::Container
) );

1;