package NonCatalyst::FileCat;

sub new{
  my ($class, $directory) = @_;
  bless { _directory = $directory }, $class;
}

sub cat{
  my ($self, $file) = @_;
  my $cmd = 'cat '.$self->{_directory}.'/'.$file;
  return `$cmd`;
}
1;