/usr/share/perl5/Alzabo/Runtime/RowState/Potential.pm is in libalzabo-perl 0.92-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 | package Alzabo::Runtime::RowState::Potential;
use strict;
use Alzabo::Runtime;
use base qw(Alzabo::Runtime::RowState::Live);
sub _init
{
my $class = shift;
my $row = shift;
my %p = @_;
# Can't just call ->update here cause with MethodMaker there may
# be update hooks that probably shouldn't be invoked here.
foreach ( keys %{ $p{values} } )
{
# This will throw an exception if the column doesn't exist.
my $c = $row->table->column($_);
Alzabo::Exception::Params->throw( error => "Column " . $c->name . " cannot be null." )
unless defined $p{values}->{$_} || $c->nullable || defined $c->default;
$row->{data}{$_} = $p{values}->{$_};
}
foreach my $c ( $row->table->columns )
{
if ( defined $c->default )
{
my $name = $c->name;
$row->{data}{$name} = $c->default unless defined $row->{data}{$name};
}
}
return 1;
}
sub _get_data
{
my $class = shift;
my $row = shift;
my %data;
@data{@_} = @{ $row->{data} }{@_};
return %data;
}
sub update
{
my $class = shift;
my $row = shift;
my %data = @_;
foreach my $k (keys %data)
{
# This will throw an exception if the column doesn't exist.
my $c = $row->table->column($k);
Alzabo::Exception::NotNullable->throw
( error => $c->name . " column in " . $row->table->name . " table cannot be null.",
column_name => $c->name,
)
unless defined $data{$k} || $c->nullable || defined $c->default;
}
my $changed = 0;
while ( my ( $k, $v ) = each %data )
{
next if $row->_cached_data_is_same( $k, $data{$k} );
$row->{data}{$k} = $v;
$changed = 1;
}
return $changed;
}
# doesn't need to do anything
sub refresh { }
sub delete
{
$_[1]->set_state( 'Alzabo::Runtime::RowState::Deleted' );
}
sub id_as_string { '' }
sub is_potential { 1 }
sub is_live { 0 }
sub is_deleted { 0 }
1;
__END__
=head1 NAME
Alzabo::Runtime::RowState::Potential - Row objects that are not in the database
=head1 SYNOPSIS
my $row = $table->potential_row;
$row->make_live; # $row is now a _real_ row object!
=head1 DESCRIPTION
This state is used for potential rows, rows which do not yet exist in
the database.
=head1 METHODS
See L<C<Alzabo::Runtime::Row>|Alzabo::Runtime::Row>.
=head1 AUTHOR
Dave Rolsky, <autarch@urth.org>
=cut
|