# Connector::Builtin::File::Simple
#
# Proxy class for accessing simple file
#
# Written by Martin Bartosch for the OpenXPKI project 2012
#
package Connector::Builtin::File::Simple;
use strict;
use warnings;
use English;
use File::Spec;
use Data::Dumper;
use Moose;
extends 'Connector::Builtin';
sub get {
my $self = shift;
my $filename = $self->{LOCATION};
if (! -r $filename) {
return $self->_node_not_exists( );
}
my $content = do {
local $INPUT_RECORD_SEPARATOR;
open my $fh, '<', $filename;
<$fh>;
};
return $content;
}
sub get_meta {
my $self = shift;
return { TYPE => "scalar" };
}
sub exists {
my $self = shift;
my $filename = $self->{LOCATION};
return -r $filename;
}
no Moose;
__PACKAGE__->meta->make_immutable;
1;
__END__
=head 1 Name
Connector::Builtin::File::Simple
=head 1 Description
Return the contents of the file given by the LOCATION parameter.
The path argument is discarded.