view release on metacpan or  search on metacpan

lib/HTTP/Engine/Middleware.pm  view on Meta::CPAN

    no warnings 'redefine';
    *{ $klass . '::meta' } = sub { $meta };
}

sub import {
    my($class, ) = @_;
    my $caller = caller;

    return unless $caller =~ /(?:\:)?Middleware\:\:.+/;

    strict->import;
    warnings->import;

    init_class($caller);

    any_moose()->import({ into_level => 1 });

    no strict 'refs';
    *{"$caller\::__MIDDLEWARE__"} = sub {
        use strict;
        my $caller = caller(0);

t/200_middlewares/uploadtemp/base.pm  view on Meta::CPAN

    {
        no strict 'refs';
        *{"$caller\::new_engine"} = \&new_engine;
        *{"$caller\::rmtree"}     = \&rmtree;
        *{"$caller\::rmtree"}     = \&rmtree;
        *{"$caller\::GET"}        = \&GET;
        *{"$caller\::POST"}       = \&POST;
    };

    strict->import;
    warnings->import;
}

sub new_engine (&@) {
    my($code, $config) = @_;

    my @args = ('HTTP::Engine::Middleware::UploadTemp');
    push @args, $config if $config;

    my $mw = HTTP::Engine::Middleware->new;