-#!perl\r
-use strict;\r
-use warnings;\r
-use Test::More tests => 2;\r
-use Test::Exception;\r
-{\r
- package RoleA;\r
- use Mouse::Role;\r
-\r
- sub foo { }\r
- sub bar { }\r
-}\r
-{\r
- package RoleB;\r
- use Mouse::Role;\r
-\r
- sub foo { }\r
- sub bar { }\r
-}\r
-{\r
- package Class;\r
- use Mouse;\r
- use Test::More;\r
- use Test::Exception;\r
-\r
- throws_ok {\r
- with qw(RoleA RoleB);\r
- } qr/Due to method name conflicts in roles 'RoleA' and 'RoleB', the methods 'bar' and 'foo' must be/;\r
-\r
- lives_ok {\r
- with RoleA => { -excludes => ['foo'] },\r
- RoleB => { -excludes => ['bar'] },\r
- ;\r
- };\r
-}\r
+#!perl
+use strict;
+use warnings;
+use Test::More tests => 2;
+use Test::Exception;
+{
+ package RoleA;
+ use Mouse::Role;
+
+ sub foo { }
+ sub bar { }
+}
+{
+ package RoleB;
+ use Mouse::Role;
+
+ sub foo { }
+ sub bar { }
+}
+{
+ package Class;
+ use Mouse;
+ use Test::More;
+ use Test::Exception;
+
+ throws_ok {
+ with qw(RoleA RoleB);
+ } qr/Due to method name conflicts in roles 'RoleA' and 'RoleB', the methods 'bar' and 'foo' must be/;
+
+ lives_ok {
+ with RoleA => { -excludes => ['foo'] },
+ RoleB => { -excludes => ['bar'] },
+ ;
+ };
+}