#!/usr/bin/env perl
use strict;
package Ping::Pong;
sub ping {
    my $cb = pop;
    $cb->(@_);
}
package main;
use Test::More;
use PerlX::MethodCallWithBlock;
Ping::Pong->ping {
    pass "pong";
    my $caller = caller ;
    is $caller, "Ping::Pong", "called from Ping::Pong";
};
Ping::Pong->ping(42) {
    pass "pong";
    my $caller = caller ;
    is $caller, "Ping::Pong", "called from Ping::Pong";
};
my $pp = bless{}, "Ping::Pong";
$pp->ping(42) {
    pass "pong";
    my $caller = caller ;
    is $caller, "Ping::Pong", "called from Ping::Pong";
};
done_testing;