/ 
ODS-0.01
River stage zero No dependents
/ ODS

NAME

ODS - Object Data Store

VERSION

Version 0.01

SYNOPSIS

package Table::Patient

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::Patient; 

use YAOO;

extends 'ODS::Table::ResultSet";

has miss_diagnosis => isa(object);

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

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

...

package Row::Patient;

use YAOO;

extends 'ODS::Table::Row';

...

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

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

my $miss_diagnosis = $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)