#!/usr/bin/perl -w
use strict;
use Hook::LexWrap;

sub get { return "Foo!" }
wrap get, post => sub { warn $_[-1] };
get();