package Hglreadfile;
# $Revision: 00001 $
# $Source: /home/glaess/perl/hgltools/Hglreadfile.pm $
# $Id: Holger Glaess $
use strict;
use warnings;
use English '-no_match_vars';
use Carp;
our $VERSION = '0.01';
our @ISA = qw(Exporter);
our @EXPORT = qw (_readfile);
our @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;