#!/usr/bin/perl -w
# $Id: bench_filter_dispatcher_extract,v 1.1 2003/09/11 11:01:03 mrodrigu Exp $
use strict; 

use XML::Filter::Dispatcher qw( :all );
use XML::SAX::Machines qw( Pipeline );
use XML::LibXML::SAX;

use Getopt::Long;

my( $in_file);
GetOptions( 'in_file=s' =>\$in_file); 
$in_file ||= 'test.xml';


my $f = XML::Filter::Dispatcher->new( Rules => [ 'message' => [ 'string()' => sub { print xvalue, "\n" } ], ],);

Pipeline( 'XML::LibXML::SAX', $f )->parse_uri( $in_file);