view _test/config.t @ 427:09e0086a82a7 ref20150831 tip

Merge
author cin
date Tue, 15 May 2018 00:51:33 +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;