lib/CWMP/_MODULE.pm

   1 # 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 use Data::Dump qw/dump/;
  15
  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         warn "created ", __PACKAGE__, "(", dump( @_ ), ") object\n" if $self->debug;
  35
  36         return $self;
  37 }
  38
  39
  40 1;