| 865 |
|
|
| 866 |
=cut |
=cut |
| 867 |
|
|
| 868 |
} elsif ($option->{sql} =~ m/^\s*(?:tiny|long|medium)? |
} elsif ($option->{sql} =~ m/^\s*(tiny|long|medium)? |
| 869 |
(?:blob|text)/ix) { |
(?:blob|text)/ix) { |
| 870 |
my $max_length = ($1 ? ($1 eq "tiny"?255:2**24 - 1) |
my $max_length = ($1 ? ($1 eq "tiny"?255:2**24 - 1) |
| 871 |
: 2**16 - 1); |
: 2**16 - 1); |
| 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
