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