Debug-Easy

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

} ## end if (WriteMakefile(NAME...))

print "\nConfiguration of Debug::Easy ", colored(['red'],'Failed'), "\n\n";
exit(1);

sub slurp_file {
    my $file = shift;

    # Read in a text file without using open
    return (
        do { local (@ARGV, $/) = $file; <> }
    );
} ## end sub slurp_file



( run in 1.556 second using v1.01-cache-2.11-cpan-49f99fa48dc )