Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

tests for typed private method call exceptions

  • Loading branch information...
commit c01e5d67b4f3f8b2d3ce05527e1aceab8b650b53 1 parent 6ff177c
Moritz Lenz moritz authored
Showing with 10 additions and 0 deletions.
  1. +10 −0 S32-exceptions/misc.t
10 S32-exceptions/misc.t
View
@@ -67,4 +67,14 @@ throws_like 'my @a; my @a', X::Redeclaration, symbol => '@a';
throws_like 'sub a { }; sub a { }',X::Redeclaration, symbol => 'a', what => 'routine';
throws_like 'CATCH { }; CATCH { }', X::Phaser::Once, block => 'CATCH';
+throws_like 'class A { my @a; @a!List::foo() }',
+ X::Method::Private::Permission,
+ method => 'foo',
+ calling-package => 'A',
+ source-package => 'List';
+
+throws_like '1!foo()',
+ X::Method::Private::Qualified,
+ method => 'foo';
+
done;
Please sign in to comment.
Something went wrong with that request. Please try again.