Net::IRC2::Chan - ( VaporWare ! ) A channel object on a connection

Net-IRC2 documentation Contained in the Net-IRC2 distribution.

Index

Code Index:

NAME

Top

Net::IRC2::Chan - ( VaporWare ! ) A channel object on a connection

WARNING

Top

Not yet implemented

FUNCTIONS

Top

new()
name()
topic()

SEE ALSO

Top

Net::IRC2, Net::IRC2::Connection, Net::IRC2::Event

AUTHOR

Top

Karl Y. Pradene, <knotty@cpan.org>, irc://knotty@freenode.org/

COPYRIGHT & LICENSE

Top

Copyright 2005, Karl Y. Pradene <knotty@cpan.org> All rights reserved.

This program is released under the following license: GNU General Public License, version 2

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License version 2 as published by the Free Software Foundation.

This program 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 program; if not, write to the 

 Free Software Foundation,
 Inc., 51 Franklin St, Fifth Floor,
 Boston, MA  02110-1301 USA

See http://www.fsf.org/licensing/licenses/gpl.html

Net-IRC2 documentation Contained in the Net-IRC2 distribution. 
#
# Copyright 2005, Karl Y. Pradene <knotty@cpan.org> All rights reserved.
#

package Net::IRC2::Chan         ;

use strict;      use warnings   ;
use Exporter                    ;

our @ISA       = qw( Exporter ) ;
our @EXPORT_OK = qw( new      ) ;
our @Export    = qw( new      ) ;

use vars qw( $VERSION )         ;
$VERSION =                      '0.27' ;

sub new        { shift and return bless { @_ } }

 
{   my ( $code, $name ) = q{ sub { return $_[0]->{NAME} = $_[1] || $_[0]->{NAME} } }      ;
    no strict 'refs'                                                                      ;
    foreach $name qw( name topic ) {
	$_ = $code ; s/NAME/$name/g ; *{$name} = eval                                   } }


no strict ;
map { *{$_} = eval 'sub { return $_[0]->{'.$_.'} = $_[1] || $_[0]->{'.$_.'} }'
    } qw ( name topic );
use strict;


1;

__END__


__END__