Changeset 3457

Timestamp:

Mar 18, 2005, 3:01:46 PM (21 years ago)

Author:

jhoblitt

Message:

create a new parser in ->new() instead of ->parse()

File:

• trunk/PS-IPP-Metadata-Config/lib/PS/IPP/Metadata/Config.pm (modified) (3 diffs)

trunk/PS-IPP-Metadata-Config/lib/PS/IPP/Metadata/Config.pm

@@ -1 +1 @@
 # Copyright (c) 2005  Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.7 2005-03-19 00:45:37 jhoblitt Exp $
+# $Id: Config.pm,v 1.8 2005-03-19 01:01:46 jhoblitt Exp $
 
 package PS::IPP::Metadata::Config;
@@ -25 +25 @@
     my $class = shift;
 
-    my $self = {};
+    my $self = { _parser => Parse::RecDescent->new( $grammar ) };
 
     bless $self, $class;
@@ -37 +37 @@
     my ( $self, $metadata ) = @_;
 
-    my $tree = Parse::RecDescent->new( $grammar )->startrule( $metadata );
+    # remove any local data from a prevous run
+    # this is slightly faster then using Storable::dclone to clone a new parser
+    delete $self->{_parser}{local};
+
+    my $tree = $self->{_parser}->startrule( $metadata );
 
     return undef unless defined $tree;