lib/DX/Lib/FS/Observation/FileContent.pm

   1 package DX::Lib::FS::Observation::FileContent;
   2
   3 use DX::Lib::FS::Fact::FileContent;
   4 use Moo;
   5
   6 has path => (is => 'ro', required => 1);
   7
   8 sub run {
   9   my ($self) = @_;
  10   return () unless -e $self->path;
  11   my $data = do {
  12     open my $fh, '<', $self->path or die "Couldn't open ${\$self->path}: $!";
  13     local $/;
  14     readline($fh)
  15   };
  16   +(file_content => DX::Lib::FS::Fact::FileContent->new(
  17     path => $self->path,
  18     data => $data
  19   ));
  20 }
  21
  22 1;