view release on metacpan or  search on metacpan

t/lib/SyndTempWrap.pm  view on Meta::CPAN

use base 'Exporter';

use vars qw($temp_dir);

our @EXPORT_OK = qw($temp_dir cur_fn fn yaml_fn atom_fn rss_fn common_fns dir);

sub dir
{
    my $fn = shift;
    return File::Spec->catdir( File::Spec->curdir(), ( split m!/!, $fn ), );
}

sub cur_fn
{
    my $fn = shift;
    return File::Spec->catfile( File::Spec->curdir(), ( split m!/!, $fn ), );
}

sub fn
{
    return File::Spec->catfile( $temp_dir, shift );
}

sub yaml_fn
{
    return fn('fort.yaml');