Mini Shell

BEGIN { print "1..4\n"; }
END { print "not ok 1\n" unless $loaded; }
use XML::Parser;
$loaded = 1;
print "ok 1\n";

$doc = <<'End_of_Doc;';
<!DOCTYPE foo [
<!ATTLIST bar zz CDATA 'there'>
]>
<foo>
  <bar xx="hello"/>
  <bar zz="other"/>
</foo>
End_of_Doc;

sub st {
    my $xp = shift;
    my $el = shift;

    if ( $el eq 'bar' ) {
        my %atts = @_;
        my %isdflt;
        my $specified = $xp->specified_attr;

        for ( my $i = $specified; $i < @_; $i += 2 ) {
            $isdflt{ $_[$i] } = 1;
        }

        if ( defined $atts{xx} ) {
            print 'not '
              if $isdflt{'xx'};
            print "ok 2\n";

            print 'not '
              unless $isdflt{'zz'};
            print "ok 3\n";
        }
        else {
            print 'not '
              if $isdflt{'zz'};
            print "ok 4\n";
        }

    }
}

$p = new XML::Parser( Handlers => { Start => \&st } );

$p->parse($doc);