view release on metacpan or  search on metacpan

lib/Acme/PricelessMethods.pm  view on Meta::CPAN

our $VERSION = '0.01';

# ###### Implementation ###########

sub new {
    my $self = shift;

    my $object = { universe => 1 };

    return bless $object, $self;
}

sub is_perl_installed {
    my $self = shift;

    # let's check if perl is somewhere around here...
    return 1 if defined $^X;
}

sub is_machine_on {