| XML-Elemental documentation | Contained in the XML-Elemental distribution. |
| XML-Elemental documentation | Contained in the XML-Elemental distribution. |
package XML::Elemental::Util; use strict; use Exporter; @XML::Elemental::Util::ISA = qw( Exporter ); use vars qw( @EXPORT_OK ); @EXPORT_OK = qw( process_name ); sub process_name { $_[0] =~ m/^{(.*)}(.+)$/; my $ns = defined $1 ? $1 : ''; $2, $ns; } #--- more to come? 1; __END__