lib/CWMP/_MODULE.pm

# Dobrica Pavlinusic, <dpavlin@rot13.org> 06/22/07 14:35:38 CEST
package CWMP::_MODULE;

use strict;
use warnings;


use base qw/Class::Accessor/;
__PACKAGE__->mk_accessors( qw/
debug
/ );

#use Carp qw/confess/;
use Data::Dump qw/dump/;

=head1 NAME

CWMP::_MODULE - description

=head1 METHODS

=head2 new

  my $obj = CWMP::_MODULE->new({
        debug => 1
  });

=cut

sub new {
        my $class = shift;
        my $self = $class->SUPER::new( @_ );

        warn "created ", __PACKAGE__, "(", dump( @_ ), ") object\n" if $self->debug;

        return $self;
}


1;
1	dpavlin	73	# Dobrica Pavlinusic, <dpavlin@rot13.org> 06/22/07 14:35:38 CEST
2			package CWMP::_MODULE;
3
4			use strict;
5			use warnings;
6
7
8			use base qw/Class::Accessor/;
9			__PACKAGE__->mk_accessors( qw/
10			debug
11			/ );
12
13			#use Carp qw/confess/;
14	dpavlin	74	use Data::Dump qw/dump/;
15	dpavlin	73
16			=head1 NAME
17
18			CWMP::_MODULE - description
19
20			=head1 METHODS
21
22			=head2 new
23
24			my $obj = CWMP::_MODULE->new({
25			debug => 1
26			});
27
28			=cut
29
30			sub new {
31			my $class = shift;
32			my $self = $class->SUPER::new( @_ );
33
34	dpavlin	74	warn "created ", __PACKAGE__, "(", dump( @_ ), ") object\n" if $self->debug;
35	dpavlin	73
36			return $self;
37			}
38
39
40			1;