File Coverage

blib/lib/Hook/Modular/Test.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	32	32	100.0

use 5.008;
use strict;
use warnings;

package Hook::Modular::Test;
BEGIN {
  $Hook::Modular::Test::VERSION = '1.101050';
}
# ABSTRACT: utility functions for testing Hook::Modular
use File::Temp 'tempfile';
use YAML qw/Load DumpFile/;
use Exporter qw(import);
our %EXPORT_TAGS = (util => [qw(write_config_file)],);
our @EXPORT_OK = @{ $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ] };

sub write_config_file {
    my $yaml     = shift;
    my $filename = (tempfile())[1];
    DumpFile($filename, Load($yaml));
    $filename;
}
1;


__END__