role for markup

Signed-off-by: franck cuny <franck@lumberjaph.net>

1 files changed, 21 insertions, 0 deletions

diff --git a/lib/ballet/Markup.pm b/lib/ballet/Markup.pm
new file mode 100644
index 0000000..8c8ed75
--- /dev/null
+++ b/lib/ballet/Markup.pm
@@ -0,0 +1,21 @@
+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;