File Coverage

blib/lib/Data/Model/Row.pm

Criterion	Covered	Total	%
statement	29	32	90.6
branch	2	2	100.0
condition	2	2	100.0
subroutine	9	11	81.8
pod	2	8	25.0
total	44	55	80.0

package Data::Model::Row;
use strict;
use warnings;

use Carp ();
$Carp::Internal{(__PACKAGE__)}++;

sub new {
    my($class, $model, $columns) = @_;
    $columns ||= {};
    bless {
        model         => $model,
        column_values => { %{ $columns } },
        alias_values  => +{},
        changed_cols  => +{},
        original_cols => +{},
    }, $class;
}

sub update {
    my $self = shift;
    $self->{model}->update($self, @_);
}

sub delete {
    my $self = shift;
    $self->{model}->delete($self, @_);
}

sub get_column {
    my($self, $name) = @_;
    $self->{column_values}->{$name};
}
sub get_columns {
    my $self = shift;
    my $schema = $self->{model}->_get_schema_by_row($self);
    my $columns = +{};
    for my $name (keys %{ $schema->{column} }) {
        $columns->{$name} = $self->{column_values}->{$name};
    }
    $columns;
}

sub get_original_column {
    my($self, $name) = @_;
    $self->{original_cols}->{$name} || $self->{column_values}->{$name};
}

sub get_changed_columns {
    my $self = shift;
    +{ %{ $self->{changed_cols} } };
}

sub get_model { $_[0]->{model} }

1;

=head1 NAME

Data::Model::Row - Data::Model's Row class

=head1 METHODS

=head2 update

update is executed for instance record.

It works by schema in which primary key exists.

=head2 delete

delete is executed for instance record.

It works by schema in which primary key exists.

=head1 SEE ALSO

L

=head1 AUTHOR

Kazuhiro Osawa Eyappo  shibuya  plE

=head1 LICENSE

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

=cut