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;

##</code><code>##

use  NonCatalyst::FileCat;

sub show :Local {
  my ( $self, $c ) = @_;
  my $fc = NonCatalyst::FileCat->new( $c->config->{file_directory});
  my $file_name = $c->request->params->{file};
  $c->stash->{result} = $fc->cat( $file_name ) ;
}