view release on metacpan or  search on metacpan

lib/LittleORM/Filter/Update.pm  view on Meta::CPAN

#!/usr/bin/perl
use strict;

package LittleORM::Filter;

# update related subs moved here to keep module file size from growing
# too much

sub update
{
	my $self = shift;

	assert( scalar @{ $self -> joined_tables() } == 0,
		'update is not defined for filter with joined tables' );

	assert( ( not defined $self -> returning_field() ),
		'update is not defined for filter with returning_field() set' );

	map { assert( $_ -> model() eq $self -> model() ); } @{ $self -> clauses() };

lib/LittleORM/Model.pm  view on Meta::CPAN

		if( &__get_db_field_name( $attr ) eq $db_field_name )
		{
			$rv = $attr;
			last pgmxcobWi7lULIJW;
		}
	}

	return $rv;
}

sub update
{
	my $self = shift;

	my %args = ();

	if( scalar @_ == 1 )
	{
		$args{ '_debug' } = $_[ 0 ];
	} else
	{