package Hgltools;
use strict;
use warnings;
use English '-no_match_vars';
use Carp;
use feature qw/switch/;
use Readonly;
our $VERSION = '0.01';
our @ISA = qw(Exporter);
our @EXPORT_OK = ();

if ( eval 'use Hglreadfile; 1;' ) { push @EXPORT_OK,'_readfile'; }

require Exporter;
use base qw(Exporter);


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

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;