Skip to content

Instantly share code, notes, and snippets.

@tadzik
Created August 8, 2011 15:46
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tadzik/1131995 to your computer and use it in GitHub Desktop.
Save tadzik/1131995 to your computer and use it in GitHub Desktop.
┌─[tadzik@yavin4]─[~/src/nom] (nom)*
└─[%]─> head lib/Pod/To/Text.pm
module Pod::To::Text;
our sub pod2text($pod) {
my @declarators;
given $pod {
when Pod::Heading { heading2text($pod) }
when Pod::Block::Code { code2text($pod) ~ "\n\n" }
when Pod::Block::Named { named2text($pod) ~ "\n" }
when Pod::Block::Para { para2text($pod) ~ "\n\n" }
when Pod::Block::Declarator { declarator2text($pod) }
┌─[tadzik@yavin4]─[~/src/nom] (nom)*
└─[%]─> ./perl6 -e 'use Pod::To::Text; Pod::To::Text::pod2text([])'
Could not find symbol 'Pod::To::Text::&pod2text'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment