my $p = XML::Parser->new(
  Handlers => {
    Start => sub { $self->handle_start( @_ ) },
    Default => sub { $self->handle_char( @_ ) },
  },
);