| 1234567891011121314151617181920212223242526272829303132333435363738394041 |
- # 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;
- }
- __DATA__
- @@ layouts/default.html.ep
- <!DOCTYPE html>
- <html>
- <head><title><%= title %></title></head>
- <body><%= content %></body>
- </html>
- __END__
- =head1 NAME
- POD till the end of file
|
