package ballet::Markup; use Mouse::Role; use Text::Textile qw/textile/; sub convert { my ($self, $format, $content) = @_; my $method = '_to_'.$format; if ($self->meta->has_method($method)) { return $self->$method($content); } } sub _to_textile { my ($self, $content) = @_; textile($content); } 1;