Re: How do I test a script that doesn't have a .pl extension

[Khen1950fx]

in reply to How do I test a script that doesn't have a .pl extension

I used Module::Loaded:

#!/usr/bin/perl

BEGIN {
    $|  = 1;
    $^W = 1;
    eval {
        use strict;
        use warnings;
        use Module::Loaded;

        my $script = mark_as_loaded('foo');
        my $loc    = is_loaded('foo');
    };
}

use strict;
use warnings;
use Module::Loaded;
use Test::More tests => 1;
require foo;

require_ok('foo');

[NodeReaper]

This node was taken out by the NodeReaper on Nov 04, 2012 at 00:30 UTC
Reason: [pemungkah]: argumentative and pointless

You may view the original node and the consideration vote tally.

[Anonymous Monk]

I used Module::Loaded

You failed. A .pl file is not a module, you shouldn't treat it as a module.