Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv7431
Modified Files:
File.pm
Log Message:
now all methods are public, you would get info on a file object
like : $file->get_owner();
Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -U2 -r1.6 -r1.7
--- File.pm 2001/10/09 17:42:08 1.6
+++ File.pm 2001/10/10 07:27:01 1.7
@@ -21,48 +21,25 @@
}
-
-sub info {
- my $self = shift;
-
- my $owner = $self->_get_owner();
- my $group = $self->_get_group();
- my $filename = $self->_get_filename();
- my $location = $self->_get_location();
- my $permissions = $self->_get_permissions();
- my $file_type = $self->_get_file_type();
-
- my %info = {
- 'owner' => $owner,
- 'group' => $group,
- 'filename' => $filename,
- 'location' => $location,
- 'permissions' => $permissions,
- 'file_type' => $file_type,
- };
-
- return %info;
-}
-
-sub _get_owner {
+sub get_owner {
my $self = shift;
return $self->{'owner'};
}
-sub _get_group {
+sub get_group {
my $self = shift;
return $self->{'group'};
}
-sub _get_filename {
+sub get_filename {
my $self = shift;
return $self->{'filename'};
}
-sub _get_permissions {
+sub get_permissions {
my $self = shift;
return $self->{'permissions'};
}
-sub _get_file_type {
+sub get_file_type {
my $self = shift;
return $self->{'file_type'};
|
