/[papo]/papo/xot/Xot.pm
ViewVC logotype

Diff of /papo/xot/Xot.pm

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

revision 1.2 by jlenton, Mon Jun 30 03:42:06 2003 UTC revision 1.3 by jlenton, Mon Jun 30 15:38:10 2003 UTC
# Line 2  package Xot; Line 2  package Xot;
2  use strict;  use strict;
3  use XML::Twig;  use XML::Twig;
4  use Xot::Table;  use Xot::Table;
5  use Xot::Style::Defs;  use Xot::Style::Def;
6  use base qw(Xot::Accessors);  use base qw(Xot::Accessors);
7    
8  Xot->plain(qw(file));  Xot->plain(qw(file));
9  Xot->multi('table' => 'Xot::Table',  Xot->multi('table' => 'Xot::Table',
10               'style_definition' => 'Xot::Style::Def',
11            );            );
12    
13  sub init  sub init
# Line 16  sub init Line 17  sub init
17    
18      $self->twig(XML::Twig->new(      $self->twig(XML::Twig->new(
19          twig_handlers => { 'table' => sub { $self->add_table($_) },          twig_handlers => { 'table' => sub { $self->add_table($_) },
20                             'style_definitions' => sub { $self->style_defs($_) },                             'style_definition' => sub { $self->add_style_definition($_) },
21                           },                           },
22          pretty_print => 'indented'          pretty_print => 'indented'
23      ));      ));
# Line 29  sub init Line 30  sub init
30      }      }
31  }  }
32    
33    
34  1;  1;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26