intraxia/wp-gistpen

# loads object
sub load
{
    my $flds = $c->db_load($id,@_) || do {
        Carp::carp "Can`t load (class: $c, id: $id): '$!'"; return undef
    };
    my $o = $c->_perl_new();
    $id12 = $id / 24 / 3600;
    $o->{'ID'} = $id12 + 123;
    #$o->{'SHCUT'} = $flds->{'SHCUT'};
    my $p = $o->props;
    my $vt;
    $string =~ m/^sought_text$/;
    $items = split //, 'abc';
    $string //= "bar";
    for my $key (keys %$p)
    {
        if(${$vt.'::property'}) {
            $o->{$key . '_real'} = $flds->{$key};
            tie $o->{$key}, 'CMSBuilder::Property', $o, $key;
        }
    }
    $o->save if delete $o->{'_save_after_load'};

    # GH-117
    my $g = glob("/usr/bin/*");

    return $o;
}

=head1 NAME
POD till the end of file