CatalystX::Usul::File::Storage::XML::Bare - Read/write XML data storage model

0.3.$Revision: 576 $

   package CatalystX::Usul::File::Storage;

   use parent qw(CatalystX::Usul);

   __PACKAGE__->config( class => q(XML::Bare) );

   sub new {
      my ($self, $app, $attrs) = @_; $attrs ||= {};

      my $class = $attrs->{class} || $self->config->{class};

      if (q(+) eq substr $class, 0, 1) { $class = substr $class, 1 }
      else { $class = __PACKAGE__.q(::).$class }

      $self->ensure_class_loaded( $class );

      return $class->new( $app, $attrs );
   }

Uses XML::Bare to read and write XML files

Defines the closure that reads the file, parses the DTD, parses the file using XML::Bare and filters the resulting hash so that it is compatible with XML::Simple. Calls read file with locking in the base class

Processes the hash read by _read_file altering it's structure so that is is compatible with XML::Simple

Defines the closure that writes the DTD and data to file. Filters the data so that it is readable by XML::Bare

Reverses the changes made by _read_filter

None

None

CatalystX::Usul::File::Storage::XML

XML::Bare

There are no known incompatibilities in this module

There are no known bugs in this module. Please report problems to the address below. Patches are welcome

Peter Flanigan, <Support at RoxSoft.co.uk>

Copyright (c) 2008 Peter Flanigan. All rights reserved

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

This program is distributed in the hope that it will be useful, but WITHOUT WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE