/ 
ODS-0.04
River stage zero No dependents
1 ++
/ ODS

NAME

ODS - Object Data Store

VERSION

Version 0.04

SYNOPSIS

        package Table::Court;

        use ODS;

        name "user";

        options (
                custom => 1
        );

        column id => (
                type => "integer",
                auto_increment => true,
                mandatory => true,
                filterable => true,
                sortable => true,
                no_render => true
        );

        column first_name => (
                type => "string",
                mandatory => true,
                filterable => true,
                sortable => true,
        );

        column last_name => (
                type => "string",
                mandatory => true,
                filterable => true,
                sortable => true,
        );

        column diagnosis => (
                type => "string",
                mandatory => true,
                filterable => true,
                sortable => true,
        );

        1;

        ...

        package ResultSet::Court;

        use YAOO;

        extends 'ODS::Table::ResultSet";

        has people => isa(string);

        has miss_diagnosis => isa(object);

        sub licenced_doctors {
                my ($self, %name) = @_;

                $self->miss_diagnosis($self->find(
                        %name
                ));
        }

        ...

        package Row::Court;

        use YAOO;

        extends 'ODS::Table::Row';

        has barrister => isa(string);

        ...

        my $data = Table::Court->connect('File::YAML', {
                file => 't/filedb/patients'
        });

        my $all = $data->all();

        my $misdiagnosis = $data->licenced_doctors({ first_name => 'Anonymous', last_name => 'Object' });

        $miss_diagnosis->update(
                diagnosis => 'psychosis'
        );

AUTHOR

LNATION, <thisusedtobeanemail at gmail.com>

BUGS

Please report any bugs or feature requests to bug-ods at rt.cpan.org, or through the web interface at https://rt.cpan.org/NoAuth/ReportBug.html?Queue=ODS. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc ODS

You can also look for information at:

ACKNOWLEDGEMENTS

LICENSE AND COPYRIGHT

This software is Copyright (c) 2022 by LNATION.

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)