package Hgltools; use strict; use warnings; use English '-no_match_vars'; use Carp; use feature qw/switch/; use Readonly; use vars qw($VERSION @ISA @EXPORT_OK); if ( eval 'use Hglreadfile; 1;' ) {push @ISA,'Hglreadfile';}; require Exporter; use base qw(Exporter); @EXPORT_OK = qw (); 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 $VERSION = '0.01' 1;