view release on metacpan or  search on metacpan

lib/Jifty/Dispatcher.pm  view on Meta::CPAN

    no warnings 'once';
    for (qw(RULES_RUN RULES_SETUP RULES_CLEANUP RULES_DEFERRED)) {
        @{ $pkg . '::' . $_ } = ();
    }
    if ( @args != @_ ) {

        # User said "-base", let's push ourselves into their @ISA.
        push @{ $pkg . '::ISA' }, $class;

        # Turn on strict and warnings for them too, a la Moose
        strict->import;
        warnings->import;
    }

    $class->export_to_level( 1, @args );
}

###################################################
# Magically figure out the arity based on caller info.
sub _ret (@) {
    my $pkg   = caller(1);

lib/Jifty/View/Declare.pm  view on Meta::CPAN

=cut

sub import {
    my ($class, $import) = @_;
    ($import and $import eq '-base') or return;
    no strict 'refs';
    my $pkg = caller;
    Jifty::Util->require(BaseClassName);
    push @{ $pkg . '::ISA' }, BaseClassName;

    strict->import;
    warnings->import;

    @_ = BaseClassName;
    goto &{BaseClassName()->can('import')};
}

=head1 SEE ALSO 

L<Jifty::View::Declare::Helpers>, L<Template::Declare>

t/TestApp-Plugin-SetupWizard/lib/TestApp/Plugin/SetupWizard/Test.pm  view on Meta::CPAN

use base 'Exporter';

use Jifty::Test::Dist ();
use Jifty::Test::WWW::Mechanize ();

our @EXPORT = qw(site_config_is);

sub import {
    my $class = shift;

    strict->import;
    warnings->import;

    $class->export_to_level(2);

    unshift @_, 'Jifty::Test::Dist';
    my $import = Jifty::Test::Dist->can('import');
    goto $import;
}

sub site_config_is {