#
# Platon.pm - General Platon SDG perl module
#
# Developed by Lubomir Host 'rajo' <rajo AT platon.sk>
# Copyright (c) 2004 Platon SDG, http://platon.sk/
# Licensed under terms of GNU General Public License.
# All rights reserved.
#
# Changelog:
# 2004-10-15 - created
#
# $Platon$
package Platon;
use strict;
use vars qw($VERSION $DEBUG);
$VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
$DEBUG = 0 unless defined $DEBUG;
sub new
{ #{{{
my $this = shift;
my $class = ref($this) || $this;
my $self = { };
bless $self, $class;
return $self;
} # }}}
sub version($;)
{ # {{{
my ($self) = @_;
return $VERSION;
} # }}}
1;
__END__
=head1 NAME
Log - <<<description of module>>>
=head1 SYNOPSIS
use Log;
my $xxx = new Log;
=head1 DESCRIPTION
The Log module allows you ...
<<<your description here>>>
=head2 EXPORT
<<here describe exported methods>>>
=head1 SEE ALSO
=head1 AUTHORS
Lubomir Host 'rajo', <rajo AT platon.sk>
=cut
# vim: ts=4
# vim600: fdm=marker fdl=0 fdc=3
Platon Group <platon@platon.org> http://platon.org/
|