[scpubgit/DKit.git] / lib / DX / Lib / FS / Observation / FileContent.pm

package DX::Lib::FS::Observation::FileContent;

use DX::Lib::FS::Fact::FileContent;
use Moo;

has path => (is => 'ro', required => 1);

sub run {
  my ($self) = @_;
  return () unless -e $self->path;
  my $data = do {
    open my $fh, '<', $self->path or die "Couldn't open ${\$self->path}: $!";
    local $/;
    readline($fh)
  };
  +(file_content => DX::Lib::FS::Fact::FileContent->new(
    path => $self->path,
    data => $data
  ));
}

1;
Commit	Line	Data
8c3eab7b	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) = @_;
dd866f63	10	return () unless -e $self->path;
8c3eab7b	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;