mason/util/include_file.mas

   1
   2 <%doc>
   3
   4 =head1 NAME
   5
   6 File viewer - displays the contents of a file
   7
   8 =head1 DESCRIPTION
   9
  10 Arguments: file. Fully qualified path to the file.
  11
  12 =head1 AUTHOR
  13
  14 Lukas Mueller
  15
  16 =cut
  17
  18 </%doc>
  19
  20
  21 <%args>
  22
  23 $file
  24
  25 </%args>
  26
  27 <%perl>
  28
  29 use File::Slurp qw | slurp |;
  30
  31 my $contents = 'Content not available.';
  32
  33 eval {
  34   $contents = slurp($file);
  35 };
  36
  37 </%perl>
  38
  39 <% $contents %>
  40
  41
  42