-#!/usr/bin/perl\r
-\r
-use strict;\r
-use warnings;\r
-\r
-\r
-{\r
- package Foo;\r
- use Mouse;\r
-\r
- sub DEMOLISH {\r
- my $self = shift;\r
- my ($igd) = @_;\r
-\r
- print $igd;\r
- }\r
-}\r
-\r
-{\r
- package Bar;\r
- use Mouse;\r
-\r
- sub DEMOLISH {\r
- my $self = shift;\r
- my ($igd) = @_;\r
-\r
- print $igd;\r
- }\r
-\r
- __PACKAGE__->meta->make_immutable;\r
-}\r
-\r
-our $foo = Foo->new;\r
-our $bar = Bar->new;\r
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+
+{
+ package Foo;
+ use Mouse;
+
+ sub DEMOLISH {
+ my $self = shift;
+ my ($igd) = @_;
+
+ print $igd;
+ }
+}
+
+{
+ package Bar;
+ use Mouse;
+
+ sub DEMOLISH {
+ my $self = shift;
+ my ($igd) = @_;
+
+ print $igd;
+ }
+
+ __PACKAGE__->meta->make_immutable;
+}
+
+our $foo = Foo->new;
+our $bar = Bar->new;