NAME

Rose::DBx::Object::Metadata::Column::Xml - Xml binary large object column metadata.

SYNOPSIS

  use Rose::DBx::Object::Metadata::Column::Xml;

  $col = Rose::DBx::Object::Metadata::Column::Xml->new(...);
  $col->make_methods(...);
  ...

     You could add this XML type to your Rose::DB::Object::Metadata column type
  by creating your own Metadata object inherited from Rose::DB::Object::Metadata.
  See below:

        package Model::MyObjectMetadata;
        use Mojo::Base 'Rose::DB::Object::Metadata';

        sub new {
                my $class = shift;
                my $self = $class->SUPER::new(@_);
                $self->extend_column_type_classes;
                return $self;
        }

        sub extend_column_type_classes {
                my $self = shift;
                my $ctc = {$self->column_type_classes};
                @$ctc{qw/xml xmltype ora_xmltype/}      = ('Model::Object::Metadata::Column::Xml') x 3;    # <-------------
                $self->column_type_classes(%$ctc);
                return $self;
        }

        1;


  xml, xmltype, ora_xmltype - are aliases to the XML type. You can use any other names you want.

  Model DB class may look as follows:

        package Model::DB;
        use base 'Rose::DBx::AutoReconnect'; # <------------- if you need autoreconnection

        # Use a private registry for this class
        __PACKAGE__->use_private_registry;

        # Set the default domain and type
        __PACKAGE__->default_domain('production');
        __PACKAGE__->default_type('main');

        1;

  Then you have to use your "brend new" MyObjectMetadata in your inherited from Rose::DB::Object class as below:


        package Model::Object;
        use Model::DB;
        use Model::MyObjectMetadata; # <-------------
        use Mojo::Base qw(Rose::DB::Object);

        sub init_db {return Model::DB->new_or_cached}

        sub meta_class {return "Model::ObjectMetadata"}   # <-------------

        1;


  And in Scheme class do as below:

    package Model::Scheme::AnySchemeClass;
        use base qw/Model::Object/;

        __PACKAGE__->meta->setup
        (
                table   => 'anytablename',

                columns => [
                        ...,
                        my_xml_field => { type => 'xml'},
                        ...
                ],
                ...
        );

        1;

  And that's it!

DESCRIPTION

Objects of this class store and manipulate metadata for long, variable-length character-based columns in a database. Column metadata objects store information about columns (data type, size, etc.) and are responsible for creating object methods that manipulate column values.

This class inherits from Rose::DB::Object::Metadata::Column::Text. Inherited methods that are not overridden will not be documented a second time here. See the Rose::DB::Object::Metadata::Column::Character documentation for more information.

METHOD MAP

get_set

Rose::DB::Object::MakeMethods::Generic, character, ...

get

Rose::DB::Object::MakeMethods::Generic, character, ...

get_set

Rose::DB::Object::MakeMethods::Generic, character, ...

See the Rose::DB::Object::Metadata::Column documentation for an explanation of this method map.

OBJECT METHODS

type

Returns "xml".

AUTHOR

Andrey Chergik (andrey@chergik.ru)

LICENSE

Copyright (c) 2011 by Andrey Chergik. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

1;