diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-07-10 19:46:05 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-07-10 19:46:05 -0400 |
| commit | a78111e4a8945819186ab6182db924c2935a3930 (patch) | |
| tree | 3302ad933ca87d9521195be706a59099229bf5e5 /t | |
| parent | 151b8f09aa871fc9d2c4d0dc061fe71ca1719949 (diff) | |
| download | lexically-a78111e4a8945819186ab6182db924c2935a3930.tar.gz lexically-a78111e4a8945819186ab6182db924c2935a3930.zip | |
initial implementation
Diffstat (limited to 't')
| -rw-r--r-- | t/basic.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/t/basic.t b/t/basic.t new file mode 100644 index 0000000..94d9a07 --- /dev/null +++ b/t/basic.t @@ -0,0 +1,20 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +undef $@; +eval "blessed('')"; +like($@, qr/^Undefined subroutine &main::blessed called/); + +{ + use lexically 'Scalar::Util', 'blessed'; + ok(blessed(bless {})); + ok(!blessed([])); +} + +undef $@; +eval "blessed('')"; +like($@, qr/^Undefined subroutine &main::blessed called/); + +done_testing; |