diff options
author | Zeus Panchenko <zeus@camb.us> | 2010-10-15 14:44:29 +0000 |
---|---|---|
committer | Zeus Panchenko <zeus@camb.us> | 2010-10-15 14:44:29 +0000 |
commit | dadfcb9f00e2a6a5ad8a1a5cd2fa42ea7da1d525 (patch) | |
tree | 7be9215a32411ea059a7fc67f985b5dac5844ba9 /modules/renrot_dir.pm | |
parent | 9af0752f9971767f69d57ef822dc007de10fc15f (diff) | |
download | renrot-git-renrot_rfile.tar.gz renrot-git-renrot_rfile.tar.bz2 |
initial tree injectgit-renrot_rfile
git-svn-id: file:///svnroot/renrot/branches/renrot_rfile@594 fe2816f4-e837-0410-b10a-f608c9d244a1
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; |