File Coverage

blib/lib/Connector/Builtin/File/Simple.pm

Criterion	Covered	Total	%
statement	32	35	91.4
branch	1	2	50.0
condition			n/a
subroutine	9	10	90.0
pod	3	3	100.0
total	45	50	90.0

# 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__

=head1 Name

Connector::Builtin::File::Simple

=head1 Description

Return the contents of the file given by the LOCATION parameter.
The path argument is discarded.