#!/usr/bin/perl -w
use strict;
use Test::More tests => 3;
BEGIN {
use_ok 'Sub::Information', as => 'peek'
or die;
}
my $info = peek sub {1};
can_ok $info, 'dump';
like $info->dump, qr/REFCNT/, "... and it should return the Devel::Peek dump";