Diff of /HDF5/Group.pm [23b465] .. [1d646d] Maximize Restore

  Switch to side-by-side view

--- a/HDF5/Group.pm
+++ b/HDF5/Group.pm
@@ -345,7 +345,7 @@
 
 =for ref
 
-Get a list of all dataset names in a group
+Get a list of all dataset names in a group. (Relative to the current group)
 
 
 B<Usage:>
@@ -373,6 +373,38 @@
   
 }
 
+=head2 groups
+
+=for ref
+
+Get a list of all group names in a group. (Relative to the current group)
+
+
+B<Usage:>
+
+=for usage
+
+   @groupNames = $group->groups;
+
+
+=cut
+
+sub groups {
+	my $self = shift;
+
+	my $groupID = $self->{groupID};
+	
+
+	my $groupName = $self->{name};
+	
+	my @totalgroups = PDL::HDF5::H5GgetGroupNames($groupID,$groupName);
+	
+		
+	
+	return @totalgroups;
+  
+}
+
 
 1;