view release on metacpan or  search on metacpan

lib/Gloom.pm  view on Meta::CPAN

use strict; use warnings;
package Gloom;
our $VERSION = '0.25';

use constant XXX_skip => 1;

sub import {
    my ($class, $flag) = @_;
    my ($package, $module) = caller(0);

    strict->import;
    warnings->import;

    if ($class->isa(__PACKAGE__) and
        defined $flag and
        $flag eq '-base'
    ) {
        $class->import_base($package, $module);
    }
    else {
        require Exporter;

t/Foo.pm  view on Meta::CPAN

use 5.008003;
use strict;
use warnings;

our $VERSION = '0.12';

sub import {
    my ($class, $flag) = @_;
    my ($package, $module) = caller(0);

    strict->import;
    warnings->import;

    if ($class->isa(__PACKAGE__) and
        defined $flag and
        $flag eq '-base'
    ) {
        $class->import_base($package, $module);
    }
    else {
        require Exporter;