File Coverage

blib/lib/Acme/Dahut.pm
Criterion Covered Total %
statement 11 16 68.7
branch 3 10 30.0
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 19 33 57.5


line stmt bran cond sub pod time code
1              
2             ###
3             # Acme::Dahut - a module for the higher circles
4             # Robin Berjon
5             # 30/11/2001 - v0.42
6             ###
7              
8             package Acme::Dahut;
9 1     1   655 use strict;
  1         2  
  1         35  
10              
11 1     1   5 use vars qw($VERSION);
  1         2  
  1         244  
12             $VERSION = '0.42';
13              
14              
15             #,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,#
16             #`,`, DAAAAAAHUUUUUUT !!!!!! ,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,#
17             #```````````````````````````````````````````````````````````````````#
18              
19             #-------------------------------------------------------------------#
20             # use a dahut
21             #-------------------------------------------------------------------#
22             sub import {
23 1     1   9 shift;
24 1 50       4 if (@_) {
25 1         2 my $side = shift;
26 1 50       8 if (lc($side) eq ':right') {
    50          
27             #line 65535
28             die "Cannot coerce LVALUE to GLOB in entersub";
29             }
30             elsif (lc($side) eq ':left') {
31             warn "\n\n\n\t\DAAAAAAHUUUUUUUUT !!!!!\n\n\n";
32             }
33             }
34             }
35             #-------------------------------------------------------------------#
36              
37             #-------------------------------------------------------------------#
38             # make a dahut
39             #-------------------------------------------------------------------#
40             sub new {
41             my $class = ref($_[0]) ? ref(shift) : shift;
42             my $dahut = \substr($class, 6, 5);
43             return bless $dahut, $class;
44             }
45             #-------------------------------------------------------------------#
46              
47             #-------------------------------------------------------------------#
48             # call a dahut
49             #-------------------------------------------------------------------#
50             sub call {
51             #line 65535
52             die "Can't coerce DAHUT to RVALUE in slopysub" unless int(rand 10) >= 9;
53             }
54             #-------------------------------------------------------------------#
55              
56              
57             1;
58             #,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,#
59             #`,`, Documentation `,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,#
60             #```````````````````````````````````````````````````````````````````#
61              
62             =pod
63              
64             =head1 NAME
65              
66             Acme::Dahut - A module for the Higher Circles
67              
68             =head1 SYNOPSIS
69              
70             use Acme::Dahut qw(:right); # dies, this is a left dahut
71             use Acme::Dahut qw(:left);
72              
73             my $dahut = Acme::Dahut->new;
74             $dahut->call;
75              
76             =head1 DESCRIPTION
77              
78             Acme::Dahut is the produce of the deranged imaginations of the #axkit
79             Higher Circles.
80              
81             As far as I know, it's the only module the constructor of which returns
82             a blessed LVALUE. But this is to be expected, as it powerfully captures
83             the business logic of a Left Dahut.
84              
85             =head1 METHODS
86              
87             =over 4
88              
89             =item * new
90              
91             Makes a new dahut.
92              
93             =item * call
94              
95             Call the dahut. If you're good you'll get to catch it.
96              
97             =back
98              
99             =head1 DAHUTOLOGY
100              
101             One of the main centers of dahut-lore is #axkit, on irc.rhizomatic.net
102             (or london.rhizomatic.net for us euros).
103              
104             You may find an occasional mention of dahut-knowledge from
105             http://use.perl.org/~darobin/journal/, but just as well you may not.
106             Such is the way of the dahut.
107              
108             The current ultimate reference is http://berjon.com/dahut.txt .
109              
110             A collection of Zen Dahut Poetry by Kip Hampton and Barrie Slaymaker
111             is confidently expected any decade now.
112              
113             =head1 AUTHOR
114              
115             Robin Berjon, robin@knowscape.com; with folks from the #axkit conspiracy
116             including but not limited to ubu, c, briac, and acme. Of course, this is
117             without mentionning the names of those that built the Dahut. Or maybe it
118             is. Or maybe just some. It depends on the Cycle.
119              
120             Thanks also to pepl, barries, baud, phish108, and others which I probably
121             forget (also unrelated folks).
122              
123             =head1 COPYRIGHT
124              
125             Copyright (c) 2001 Robin Berjon. All rights reserved. This program is
126             free software; you can redistribute it and/or modify it under the same
127             terms as Perl itself.
128              
129             =head1 SEE ALSO
130              
131             Acme::*
132              
133             =cut