Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

#!/usr/bin/env perl
use v5.12.5;
our $VERSION = '9999.99.99_99'; # VERSION
use Rex -base;
$::QUIET = 1;
set(
cmdb => {
type => "YAML",
path => "t/cmdb",
}
);
use Test::More tests => 2;
use Rex -base;
task(
"test1",
sub {
my $x = param_lookup( "name", "foo" );
is( $x, "defaultname", "got default value" );
}
);
test1();