| 1495 |
return $bases{$class}; |
return $bases{$class}; |
| 1496 |
} |
} |
| 1497 |
|
|
| 1498 |
|
=item Class::Tangram::class_is_abstract($class) |
| 1499 |
|
|
| 1500 |
|
Returns a bool value if the given class is abstract. |
| 1501 |
|
|
| 1502 |
|
=cut |
| 1503 |
|
|
| 1504 |
|
sub class_is_abstract($) { |
| 1505 |
|
my $class = shift; |
| 1506 |
|
return exists $abstract{$class}; |
| 1507 |
|
} |
| 1508 |
|
|
| 1509 |
=item Class->set_init_default(attribute => $value); |
=item Class->set_init_default(attribute => $value); |
| 1510 |
|
|
| 1511 |
Sets the default value on an attribute for newly created "Class" |
Sets the default value on an attribute for newly created "Class" |
Parent Directory
| 
Revision Log
| 
Patch
