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

   1 package DX::Lib::FS::Observation::PathStatus;
   2
   3 use aliased 'DX::Lib::FS::Fact::PathStatus';
   4 use aliased 'DX::Lib::FS::Fact::PathStatusInfo';
   5 use DX::Lib::FS::Guts;
   6 use Moo;
   7
   8 has path => (is => 'ro', required => 1);
   9
  10 sub run {
  11   my ($self) = @_;
  12   my $info = DX::Lib::FS::Guts->path_status_info($self->path);
  13   (path_status => PathStatus->new(
  14     path => $self->path,
  15     ($info
  16       ? (info => PathStatusInfo->new($info))
  17       : ()
  18     )
  19   ));
  20 }
  21
  22 1;