/[cwmp]/google/trunk/lib/CWMP/Request.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/trunk/lib/CWMP/Request.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 222 by dpavlin, Fri Nov 23 21:14:54 2007 UTC revision 223 by dpavlin, Sat Nov 24 02:17:40 2007 UTC
# Line 4  use warnings; Line 4  use warnings;
4  use strict;  use strict;
5    
6  use XML::Rules;  use XML::Rules;
 use CWMP::Tree;  
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
8  use Carp qw/confess cluck/;  use Carp qw/confess cluck/;
9  use Class::Trigger;  use Class::Trigger;
# Line 21  All methods described below call trigger Line 20  All methods described below call trigger
20    
21  our $state;     # FIXME check this!  our $state;     # FIXME check this!
22    
23  my $rules =  [  our $rules =  [
24                  #_default => 'content trim',                  #_default => 'content trim',
25                  x_default => sub {                  x_default => sub {
26                          my ($tag_name, $tag_hash, $context, $parent_data) = @_;                          my ($tag_name, $tag_hash, $context, $parent_data) = @_;
# Line 125  push @$rules, Line 124  push @$rules,
124    
125  =cut  =cut
126    
127  sub parse {  my $parser = XML::Rules->new(
         my $self = shift;  
   
         my $xml = shift || confess "no xml?";  
   
         my $parser = XML::Rules->new(  
128  #               start_rules => [  #               start_rules => [
129  #                       '^division_name,fax' => 'skip',  #                       '^division_name,fax' => 'skip',
130  #               ],  #               ],
# Line 142  sub parse { Line 136  sub parse {
136                          'urn:dslforum-org:cwmp-1-0' => '',                          'urn:dslforum-org:cwmp-1-0' => '',
137                  },                  },
138                  rules => $rules,                  rules => $rules,
139          );  );
140    
141    sub parse {
142            my $self = shift;
143    
144            my $xml = shift || confess "no xml?";
145    
146          $state = {};          $state = {};
147    
Legend:
Removed from v.222  
changed lines
  Added in v.223
  ViewVC Help
Powered by ViewVC 1.1.26