mirror of https://github.com/pragma-/pbot.git
52 lines
737 B
Perl
52 lines
737 B
Perl
|
# File: NewModule.pm
|
||
|
# Authoer: pragma_
|
||
|
#
|
||
|
# Purpose: New module skeleton
|
||
|
|
||
|
package PBot::NewModule;
|
||
|
|
||
|
use warnings;
|
||
|
use strict;
|
||
|
|
||
|
BEGIN {
|
||
|
use Exporter ();
|
||
|
use vars qw($VERSION @ISA @EXPORT_OK);
|
||
|
|
||
|
$VERSION = $PBot::PBot::VERSION;
|
||
|
@ISA = qw(Exporter);
|
||
|
@EXPORT_OK = qw();
|
||
|
}
|
||
|
|
||
|
use vars @EXPORT_OK;
|
||
|
|
||
|
use Carp ();
|
||
|
|
||
|
sub new {
|
||
|
if(ref($_[1]) eq 'HASH') {
|
||
|
Carp::croak("Options to Logger should be key/value pairs, not hash reference");
|
||
|
}
|
||
|
|
||
|
my ($class, %conf) = @_;
|
||
|
|
||
|
my $option = delete $conf{option};
|
||
|
|
||
|
if(defined $option) {
|
||
|
# do something (optional)
|
||
|
} else {
|
||
|
# set default value (optional)
|
||
|
$option = undef;
|
||
|
}
|
||
|
|
||
|
my $self = {
|
||
|
option => $option,
|
||
|
};
|
||
|
|
||
|
bless $self, $class;
|
||
|
|
||
|
return $self;
|
||
|
}
|
||
|
|
||
|
# subs here
|
||
|
|
||
|
1;
|