The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

SWISH::Prog::Utils - utility variables and methods

SYNOPSIS

 use SWISH::Prog::Utils;
 
 # use the utils
 

DESCRIPTION

This class provides commonly used variables and methods shared by many classes in the SWISH::Prog project.

VARIABLES

$ExtRE

Regular expression of common file type extensions.

$XML

Instance of Search::Tools::XML.

%ParserTypes

Hash of MIME types to their equivalent parser.

METHODS

mime_type( url [, ext ] )

Returns MIME type for url. If ext is used, that is checked against MIME::Types. Otherwise the url is parsed for an extension using path_parts() and then fed to MIME::Types.

path_parts( url [, regex ] )

Returns array of path, file and extension using the File::Basename module. If regex is missing or false, uses $ExtRE.

perl_to_xml( ref, root_element )

Similar to the XML::Simple XMLout() feature, perl_to_xml() will take a Perl data structure ref and convert it to XML, using root_element as the top-level element.

AUTHOR

Peter Karman, <perl@peknet.com>

COPYRIGHT AND LICENSE

Copyright 2008 by Peter Karman

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.