#!/usr/bin/perl --
## t/file.t

use File::Spec::Functions qw' updir catfile rel2abs ';
use File::Basename qw' dirname ';

my $thisf = rel2abs(__FILE__);
my $thisd = dirname($thisf);
my $conff = catfile( $thisd, updir, qw! _build build_params ! );

my $conf = require $conff;
my $args = $conf->[0];
my %ARGS = %{$conf->[0] };

print "Cake? $$args{Cake}\n";
print "pi? $ARGS{pi}\n";
[download]