view release on metacpan or  search on metacpan

lib/Rhetoric/Helpers.pm  view on Meta::CPAN

# write line
sub wl {
  my $file = shift;
  my $line = shift;
  io($file) < "$line\n";
}

# owner of file
sub file_owner {
  my $file = shift;
  getpwuid( (stat($file))[4] );
}

1;