File Coverage

blib/lib/HOE.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package HOE;
2              
3             =head1 NAME
4              
5             HOE - Alternative kernel implementation of POE, for the heck of it.
6              
7             =head1 SYNOPSIS
8              
9             Usually right when you would call
10              
11             use POE qw(stuff);
12              
13             insert another line just above it, like so
14              
15             use HOE;
16             use POE qw(stuff);
17              
18             or just include on the command line.
19              
20             perl -MHOE thing.perl
21              
22             You can disable with an environment variable.
23              
24             HOE_DISABLE=1
25              
26             =head1 DESCRIPTION
27              
28             Hello,
29              
30             First off a warning; What you read below is my idea of what should be. Please check the TODO file for what I know I need to implement and if you find any other edge let me know.
31              
32             HOE is an alternative Kernel implmentation for POE. It includes all the support classes that it uses for itself but for [PH]OE to be useful you also need sessions and wheels other creations. These all come from the main POE distribution and I depend on that package in this one.
33              
34             The goal in writing this collection of modules was to search for different possibly faster, possibly cleaner, possibly more elegant, or whatever alternatives for the POE classes. In some ways it is faster than POE, in some ways it's slower.
35              
36             Cheers
37              
38             =head1 SEE ALSO
39              
40             POE
41              
42             =head1 BUGS
43              
44             See TODO file, report if not found please.
45              
46             =head1 AUTHOR
47              
48             Jonathan Steinert
49             hachi@cpan.org
50              
51             =head1 LICENSE
52              
53             Copyright 2006 Jonathan Steinert (hachi@cpan.org)
54              
55             This program is free software; you can redistribute it and/or modify it under the same terms as Perl itsef.
56              
57             =cut
58              
59 111     111   149375 use strict;
  111         119  
  111         4068  
60 111     111   563 use warnings;
  111         219  
  111         24242  
61              
62             our $VERSION = '0.00_01';
63             our $XS_VERSION = $VERSION;
64             $VERSION = eval $VERSION;
65              
66             unless (exists( $ENV{HOE_DISABLE} ) and $ENV{HOE_DISABLE}) {
67             my $location = $INC{'HOE.pm'};
68             $location =~ s{\.pm$}{/};
69             unshift @INC, $location;
70              
71             }
72             else {
73             warn( "Disabling HOE via environment HOE_DISABLE=$ENV{HOE_DISABLE}\n" );
74             }
75              
76             1;