sub _default_custom_content {
my $self = shift;
my $default = qq|\n\n# You can replace this text with custom|
- . qq| content, and it will be preserved on regeneration|;
+ . qq| code or comments, and it will be preserved on regeneration|;
if ($self->use_moose) {
$default .= $self->_default_moose_custom_content;
}
die $@ if $@;
push @methods, @{ Class::Inspector->methods($class) || [] };
+ push @methods, @{ Class::Inspector->methods('UNIVERSAL') || [] };
}
my %methods;
" $_: $s"
} sort keys %$attrs,
);
- if (my $comment = $self->__column_comment($self->{_class2table}{$class}, $col_counter)) {
+ if (my $comment = $self->__column_comment($self->{_class2table}{$class}, $col_counter, $name)) {
$self->_pod( $class, $comment );
}
}