Initial revision

Changes

@@ -0,0 +1,6 @@
+Revision history for Perl extension Transform.
+
+0.01  Thu Jun  2 22:49:39 2005
+	- original version; created by h2xs 1.23 with options
+		-A -X -nTransform
+

MANIFEST

@@ -0,0 +1,6 @@
+Changes
+Makefile.PL
+MANIFEST
+README
+t/Transform.t
+lib/Transform.pm

Makefile.PL

@@ -0,0 +1,12 @@
+use 5.008005;
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile(
+    NAME              => 'Transform',
+    VERSION_FROM      => 'lib/Transform.pm', # finds $VERSION
+    PREREQ_PM         => {}, # e.g., Module::Name => 1.1
+    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
+      (ABSTRACT_FROM  => 'lib/Transform.pm', # retrieve abstract from module
+       AUTHOR         => 'Dave Cross <dave@localdomain>') : ()),
+);

README

@@ -0,0 +1,40 @@
+Transform version 0.01
+======================
+
+The README is used to introduce the module and provide instructions on
+how to install the module, any machine dependencies it may have (for
+example C compilers and installed libraries) and any other information
+that should be provided before the module is installed.
+
+A README file is required for CPAN modules since CPAN extracts the
+README file from a module distribution so that people browsing the
+archive can use it get an idea of the modules uses. It is usually a
+good idea to provide version information here so that people can
+decide whether fixes for the module are worth downloading.
+
+INSTALLATION
+
+To install this module type the following:
+
+   perl Makefile.PL
+   make
+   make test
+   make install
+
+DEPENDENCIES
+
+This module requires these other modules and libraries:
+
+  blah blah blah
+
+COPYRIGHT AND LICENCE
+
+Put the correct copyright and licence information here.
+
+Copyright (C) 2005 by Dave Cross
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.8.5 or,
+at your option, any later version of Perl 5 you may have available.
+
+

bin/transform

@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use strict; 
+use warnings;
+
+use Getopt::Std;
+use Transform;
+
+my %opts; 
+(getopts('f:', \%opts) && @ARGV) 
+  || die "usage: transform.pl -f h|p|t xml_file\n"; 
+
+die "Invalid format: $opts{f}\n" unless exists $xformats{$opts{f}}; 
+
+my $xform = Transform->new(type => $xformats{$opts{f}},
+                           file => shift);
+
+print $xform->process;