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 Moo;
   6
   7 has path => (is => 'ro', required => 1);
   8
   9 with 'DX::Lib::FS::Role::RunOn';
  10
  11 sub run {
  12   my ($self) = @_;
  13   my $info = $self->_call_guts('path_status_info');
  14   (path_status => PathStatus->new(
  15     path => $self->path,
  16     ($info
  17       ? (info => PathStatusInfo->new($info))
  18       : ()
  19     )
  20   ));
  21 }
  22
  23 1;