diff options
Diffstat (limited to 'modules/renrot_dir.pm')
-rwxr-xr-x | modules/renrot_dir.pm | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/modules/renrot_dir.pm b/modules/renrot_dir.pm new file mode 100755 index 0000000..701b9c4 --- /dev/null +++ b/modules/renrot_dir.pm @@ -0,0 +1,47 @@ +use strict; + +package renrot_dir; + +################################################### +# Usage : $a = new renrot_dir; +# Purpose : allocator and initializer +# Returns : initialized class +# Parameters : none +# Throws : no exceptions +# Comments : none +# See Also : n/a +sub new { + my ($pkg, $dir, $ext) = @_; + my @files = (); + return (bless {dir => $dir, + ext => $ext, + files => \@files}, $pkg); +} + +################################################### +# Usage : none +# Purpose : destructor +# Returns : none +# Parameters : none +# Throws : no exceptions +# Comments : none +# See Also : n/a +sub DESTROY { + my $obj = shift; + #print "\$obj->{", $obj->{dir}, "} has been destroied.\n"; +} + +################################################### +# Usage : $obj->filename($base, $ext) +# Purpose : full file name compilator: base . ext = baseext +# Returns : ful filename +# Parameters : 1. basename; 2. extention of ".ext" format +# Throws : no exceptions +# Comments : none +# See Also : n/a +sub file_name { + my ($obj, $base, $ext) = @_; + return $obj->{filename} = $base . $ext; +} + +1; |