view release on metacpan or  search on metacpan

t/01-use.t  view on Meta::CPAN

use Test::More tests => 5;

use MogileFS::Server;
use MogileFS::Config;

{
    local @ARGV = qw/--skipconfig --plugins MultiHook/;

    eval {
        MogileFS::Config->load_config;
    };
    ok(!$@);
    ok(MogileFS->can("global_hook"));
    ok(MogileFS::register_global_hook("test", sub { my $args = shift; $args->{test} += 1;  1; }));
    ok(MogileFS::register_global_hook("test", sub { my $args = shift; $args->{test} *= 2; 1; }));

    my $args = { test => 1 };