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; |