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;
open FH, "$file" or Form->error("$file : $!");
while (<FH>) {
- next if m/^(#|;|\s)/;
-
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;
}