Resource::Loader 0.03

Resource::Loader is a Perl module to load different resources depending.

SYNOPSIS

use Resource::Loader;

$loader = Resource::Loader->new(
testing => 0,
verbose => 0,
cont => 0,
resources =>
[
{ name => never,
when => sub { 0 },
what => sub { die "this will never be loaded" },
},
{ name => sometimes 50%,
when => sub { int rand 2 > 0 },
what => sub { "sometimes was loaded. args: [@_]" },
whatargs => [ qw/foo bar baz/ ],
},
{ name => sometimes 66%,
when => sub { int rand @_ },
whenargs => [ 0, 1, 2 ],
what => sub { "sometimes was loaded. args: [@_]" },
whatargs => [ qw/foo bar baz/ ],
},
{ name => always,
when => sub { 1 },
what => sub { "always was loaded" },
},
],
);

$loaded = $loader->load;
$status = $loader->status;

Resource::Loader is simple at its core: You give it a list of resources. Each resource knows when it should be triggered and if its triggered, will run its code segment.

Both the when and the what are coderefs, so you can be as devious as you want in determining when a resource will be loaded and what, exactly, it does.

I originally wrote this to solve a simple problem but realized that the class is probably applicable to a whole slew of problems. I look forward to hearing to what devious ends you push this module. Really, send me an email - I love hearing about people using my toys.