File Coverage

blib/lib/Config/Magic.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Config::Magic;

#use 5.008002;
use strict;
use warnings;
use Config::Magic::Grammar
#use Data::Dumper;
#use Tie::IxHash;
require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Config::Magic ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(parse new get_result) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw();

our $VERSION = '0.801';
#Used to turn on and off newline checking.  Some techniques can skip over newlines, and some can't.

# Preloaded methods go here.
sub parse
{
my $self=shift;
my ($FILE,$text);
return $self->{'parser'}->start(shift) if(scalar(@_));
open(FILE,"<".$self->{'filename'}) || die "Unable to open file " . $self->{'filename'} . " in Config::Magic\n";
my @lines=;
close(FILE);
for my $line (@lines) {$text .= $line; };
$self->{'result'}=$self->{'parser'}->start($text);
return $self->{'result'};
}

sub get_result
{my $self=shift;
return $self->{'result'} if(exists($self->{'result'})); }

sub setordered
{my $self=shift;
    $self->{'parser'}->{'ordered'}=shift;
}

sub new {
  my %dat;

#$::RD_HINT=1;
$::RD_AUTOACTION =  q{ ($#item>1)?[@item[1..$#item]]:$item[1]};
#  $::RD_TRACE=1;
  $dat{'filename'} = $_[1] if(scalar(@_)>1);
  $dat{'parser'}=Config::Magic::Grammar->new();
#  $dat{parser}->{skip}=qr{((\/[*].*?[*]\/)|((#|;|\/\/).*?\n)|\s)*}sm;
  $dat{'parser'}->{'ordered'} = 0;
  $dat{'parser'}->{'ordered'} = $_[2] if(scalar(@_)>2);
#  bless $dat{'parser'}, "Parse::RecDescent";
  bless(\%dat);
  return \%dat;
}

1;
__END__