[Sandweb-commit] CVS: sandweb/lib/SandWeb File.pm,1.6,1.7

[Rob H. <for...@us...>]

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'};