Author: dylan
Date: 2004-12-17 04:16:13 -0500 (Fri, 17 Dec 2004)
New Revision: 429
Removed:
trunk/main/common/lib/Haver/Callback.pm
trunk/main/common/lib/Haver/Error.pm
trunk/main/common/lib/Haver/Error/
Modified:
trunk/main/common/lib/Haver/OS.pm
trunk/main/common/lib/Haver/OS/Unix.pm
trunk/main/common/lib/Haver/Protocol.pm
Log:
Oh, a few small fixes.
Deleted: trunk/main/common/lib/Haver/Callback.pm
===================================================================
--- trunk/main/common/lib/Haver/Callback.pm 2004-12-17 05:18:10 UTC (rev
428)
+++ trunk/main/common/lib/Haver/Callback.pm 2004-12-17 09:16:13 UTC (rev
429)
@@ -1,61 +0,0 @@
-# vim: set ft=perl ts=4 sw=4:
-# Haver::Callback - description
-#
-# Copyright (C) 2004 Dylan William Hardison.
-#
-# This module is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This module is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this module; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package Haver::Callback;
-use strict;
-use warnings;
-
-use Haver::Preprocessor;
-use base 'Haver::Base';
-
-our $VERSION = '0.01';
-use Scalar::Util qw(reftype);
-
-sub new {
- my ($this, $cb, @args) = @_;
- # ASSERT: ref($cb);
- my $callback;
-
- if (reftype($cb) eq 'CODE') {
- $callback = $cb;
- } elsif (ref($cb) eq 'ARRAY') {
- @_ = ($this, @$cb, @args);
- goto &new;
- } elsif (UNIVERSAL::isa($cb, __PACKAGE__)) {
- return $cb;
- } else {
- my $method = shift @args;
- $callback = $cb->can($method);
- unshift(@args, $cb);
- }
-
- $this->SUPER::new(
- callback => $callback,
- args => [EMAIL PROTECTED],
- );
-}
-
-sub call {
- my ($me, @args) = @_;
-
- $me->{callback}->(@{ $me->{args} }, @args);
-}
-
-
-1;
-
Deleted: trunk/main/common/lib/Haver/Error.pm
===================================================================
--- trunk/main/common/lib/Haver/Error.pm 2004-12-17 05:18:10 UTC (rev
428)
+++ trunk/main/common/lib/Haver/Error.pm 2004-12-17 09:16:13 UTC (rev
429)
@@ -1,36 +0,0 @@
-# vim: set ft=perl ts=4 sw=4:
-# Haver::Error - Base class for haver exceptions.
-#
-# Copyright (C) 2004 Dylan William Hardison.
-#
-# This module is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This module is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this module; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package Haver::Error;
-use strict;
-use warnings;
-use Error;
-use base 'Error';
-
-sub new {
- my $self = shift;
- my $text = shift;
-
- local $Error::Depth = $Error::Depth + 1;
-
- $self->SUPER::new(-text => $text, @_);
-}
-
-
-
-
Modified: trunk/main/common/lib/Haver/OS/Unix.pm
===================================================================
--- trunk/main/common/lib/Haver/OS/Unix.pm 2004-12-17 05:18:10 UTC (rev
428)
+++ trunk/main/common/lib/Haver/OS/Unix.pm 2004-12-17 09:16:13 UTC (rev
429)
@@ -100,7 +100,6 @@
sub home { shift->homedir }
sub user_is_root { $> == 0 ? 1 : 0 }
-
sub family { 'Unix' }
Modified: trunk/main/common/lib/Haver/OS.pm
===================================================================
--- trunk/main/common/lib/Haver/OS.pm 2004-12-17 05:18:10 UTC (rev 428)
+++ trunk/main/common/lib/Haver/OS.pm 2004-12-17 09:16:13 UTC (rev 429)
@@ -23,10 +23,8 @@
use File::Basename ();
use Carp;
-our $VERSION = "0.01";
+our $VERSION = 0.10;
-$VERSION = '0.87';
-
my $module = do {
if ($^O eq 'linux') {
'Linux';
Modified: trunk/main/common/lib/Haver/Protocol.pm
===================================================================
--- trunk/main/common/lib/Haver/Protocol.pm 2004-12-17 05:18:10 UTC (rev
428)
+++ trunk/main/common/lib/Haver/Protocol.pm 2004-12-17 09:16:13 UTC (rev
429)
@@ -118,7 +118,7 @@
=head1 SEE ALSO
-L<Haver::Protocol::Filter>
+L<POE::Filter::Haver>
L<https://gna.org/projects/haver/>
@@ -126,7 +126,7 @@
=head1 AUTHOR
-Dylan William Hardison, E<lt>[EMAIL PROTECTED]<gt>
+Dylan William Hardison, E<lt>[EMAIL PROTECTED]<gt>
=head1 COPYRIGHT AND LICENSE
