view _test/config.t @ 424:87af445663d7 ref20150831

IMPL::Object::_Base
author cin
date Tue, 03 Apr 2018 10:54:09 +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;