package Hglreadfile;
use strict;
use warnings;
use English '-no_match_vars';
use Carp;
use feature qw/switch/;
use Readonly;

require Exporter;
use vars qw($VERSION @ISA @EXPORT_OK);
use base qw(Exporter);
@EXPORT_OK = qw (_readfile);

sub new {
    my @opt   = @_;
    my $shelf = {};
    my $class = $opt[0];
    my $args  = $opt[1];
    $class = ref($class) || $class;
    bless $shelf, $class;
    return $shelf;
}    # end sub new

sub _readfile {
my ($shelf,$args) = @_;
my $file = \$args->{'file'};
my @content = ();

if ( not ( -e ${$file} ) ) { return ('filenotexist'); }

open my $FH , '<', ${$file} or croak "can't open ${$file} for _readfile $ERRNO";
  while (<$FH>) {
    chomp;
    push @content,$_;
  }
close $FH or croak $ERRNO;
return (@content);
}
1;