XML::DTD::PI - Perl module representing a processing instruction in a DTD

  use XML::DTD::PI;

  my $pi = XML::DTD::PI->new('example pi');

  XML::DTD::PI is a Perl module representing a processing instruction
  in a DTD. The following methods are provided.

package XML::DTD::PI;

use XML::DTD::Component;

use 5.008;
use strict;
use warnings;

our @ISA = qw(XML::DTD::Component);

our $VERSION = '0.09';


# Constructor
sub new {
  my $arg = shift;
  my $pi = shift;

  my $cls = ref($arg) || $arg;
  my $obj = ref($arg) && $arg;

  my $self;
  if ($obj) {
    # Called as a copy constructor
    $self = { %$obj };
    bless $self, $cls;
  } else {
    # Called as the main constructor
    $self = { };
    bless $self, $cls;
    $self->define('pi', $pi, '<\?', '\?>');
  }
  return $self;
}


1;
__END__