Skip to content

Instantly share code, notes, and snippets.

@tadzik

tadzik/gist:1585730

Created January 9, 2012 23:46
Download ZIP

Revisions

  1. Tadeusz Sośnierz created this gist Jan 9, 2012.
    32 changes: 32 additions & 0 deletions gistfile1.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,32 @@
    ┌─[tadzik@yavin4]─[~/src/perl/bailador] (master)*
    └─[%]─> cat lib/Bailador.pm
    module Bailador;

    our sub our_template {
    return "(our template)"
    }

    sub exp_template is export {
    return "(exp template)"
    }

    sub hook is export {
    &our_template.wrap: { "wrapped {callsame()}" };
    &exp_template.wrap: { "wrapped {callsame()}" };
    }
    ┌─[tadzik@yavin4]─[~/src/perl/bailador] (master)*
    └─[%]─> cat examples/app.pl
    use Bailador;

    sub foo {
    say Bailador::our_template();
    say exp_template();
    }

    hook();

    foo();
    ┌─[tadzik@yavin4]─[~/src/perl/bailador] (master)*
    └─[%]─> perl6 examples/app.pl
    wrapped (our template)
    (exp template)