File: DTDWriter.pm

package info (click to toggle)
libdata-stag-perl 0.14-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 1,480 kB
  • sloc: perl: 6,394; lisp: 141; xml: 116; ansic: 55; makefile: 17; sh: 2
file content (37 lines) | stat: -rw-r--r-- 462 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
package Data::Stag::DTDWriter;

=head1 NAME

  Data::Stag::DTDWriter - DTD Writer

=head1 SYNOPSIS

  my $p = Data::Stag->parser;
  $p->handler('dtd');
  $p->parse($file);
  

=cut

=head1 DESCRIPTION


=head1 PUBLIC METHODS -

=cut

use strict;
use base qw(Data::Stag::Writer);

use vars qw($VERSION);
$VERSION="0.14";

sub end_stag {
    my $self = shift;
    my $stag = shift;
    my $dtd = $stag->autoschema->dtd;
    $self->addtext($dtd);
    return;
}

1;