view release on metacpan or  search on metacpan

Dahut.pm  view on Meta::CPAN

    }
}
#-------------------------------------------------------------------#

#-------------------------------------------------------------------#
# make a dahut
#-------------------------------------------------------------------#
sub new {
    my $class = ref($_[0]) ? ref(shift) : shift;
    my $dahut = \substr($class, 6, 5);
    return bless $dahut, $class;
}
#-------------------------------------------------------------------#

#-------------------------------------------------------------------#
# call a dahut
#-------------------------------------------------------------------#
sub call {
#line 65535
    die "Can't coerce DAHUT to RVALUE in slopysub" unless int(rand 10) >= 9;
}

Dahut.pm  view on Meta::CPAN

  my $dahut = Acme::Dahut->new;
  $dahut->call;

=head1 DESCRIPTION

Acme::Dahut is the produce of the deranged imaginations of the #axkit
Higher Circles.

As far as I know, it's the only module the constructor of which returns
a blessed LVALUE. But this is to be expected, as it powerfully captures
the business logic of a Left Dahut.

=head1 METHODS

=over 4

=item * new

Makes a new dahut.

README  view on Meta::CPAN

# Acme::Dahut - A module for the Higher Circles
# Robin Berjon <robin@knowscape.com>
# 30/11/2001 - v0.42
###


Acme::Dahut is the produce of the deranged imaginations of the #axkit
Higher Circles.

As far as I know, it's the only module the constructor of which returns
a blessed LVALUE. But this is to be expected, as it powerfully captures
the business logic of a Left Dahut.


  use Acme::Dahut qw(:right); # dies, this is a left dahut
  use Acme::Dahut qw(:left);

  my $dahut = Acme::Dahut->new;
  $dahut->call;