File Coverage

lib/Oryx/DBI/Attribute.pm

Criterion	Covered	Total	%
statement	6	19	31.5
branch			n/a
condition			n/a
subroutine	2	6	33.3
pod	4	4	100.0
total	12	29	41.3

package Oryx::DBI::Attribute;

use Oryx::Value;

use base qw(Oryx::Attribute);

sub create {
    my ($self, $query, $param) = @_;
    my $attr_name = $self->name;
    $param->{$attr_name} = $self->deflate($param->{$attr_name});
}

sub retrieve {
    my ($self, $query, $values) = @_;
    push @{$query->{fields}}, $self->name;
}

sub update {
    my ($self, $query, $object) = @_;
    my $attr_name = $self->name;
    my $value = $object->$attr_name;
    $query->{fieldvals}->{$attr_name} = $self->deflate($value);
}

sub search {
    my ($self, $query) = @_;
    push @{$query->{fields}}, $self->name;
}

1;
__END__