1 package System::Introspector::Groups;
7 my $fh = $self->_open_group_file;
8 while (defined( my $line = <$fh> )) {
10 my ($name, undef, $gid, $users) = split m{:}, $line;
11 $users = length($users)
12 ? [split m{,}, $users]
23 sub _open_group_file {
25 open my $fh, '<', '/etc/group'
26 or die "Unable to read group file /etc/group: $!\n";