use IO::File;
+use strict;
+
sub new {
- $main::lxdebug->enter_sub();
+ $main::lxdebug->enter_sub(2);
- my ($type, $file) = @_;
+ my ($type, $file, %options) = @_;
my $id = "";
my $skip;
while (<FH>) {
chomp;
- # strip comments
- s/#.*//g;
+ if (!$options{verbatim}) {
+ # strip comments
+ s/\#.*//;
- # remove any trailing whitespace
- s/^\s*//;
- s/\s*$//;
+ # remove any trailing whitespace
+ s/^\s*//;
+ s/\s*$//;
+ } else {
+ next if (m/^\s*\#/);
+ }
next unless $_;
}
close FH;
- $main::lxdebug->leave_sub();
+ $main::lxdebug->leave_sub(2);
return bless $self, $type;
}