Permalink
Browse files

Set "no Mouse" directives

  • Loading branch information...
1 parent 840ee00 commit 569f2bc81065eeb5a992d6fe278532e97f9c4e15 @gfx committed Nov 17, 2009
Showing with 24 additions and 0 deletions.
  1. +10 −0 lib/Acme/Perl/VM/Context.pm
  2. +14 −0 lib/Acme/Perl/VM/Scope.pm
@@ -8,6 +8,7 @@ sub type{
return $type;
}
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Context::BLOCK;
@@ -61,6 +62,7 @@ sub CURPAD_SV{
}
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Context::SUB;
@@ -117,12 +119,14 @@ sub BUILD{
return;
}
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Context::EVAL;
use Mouse;
extends 'Acme::Perl::VM::Context::BLOCK';
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Context::LOOP;
@@ -162,6 +166,7 @@ sub BUILD{
sub ITERVAR(){ undef }
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Context::FOREACH;
@@ -245,30 +250,35 @@ sub ITERDATA_SET{
$cx->itersave($cx->ITERVAR);
}
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Context::GivenWhen;
use Mouse;
extends 'Acme::Perl::VM::Context::BLOCK';
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Context::GIVEN;
use Mouse;
extends 'Acme::Perl::VM::Context::GivenWhen';
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Context::WHEN;
use Mouse;
extends 'Acme::Perl::VM::Context::GivenWhen';
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Context::SUBST;
use Mouse;
extends 'Acme::Perl::VM::Context';
+no Mouse;
__PACKAGE__->meta->make_immutable();
__END__
View
@@ -27,6 +27,7 @@ sub _save{
return sprintf q{saved %s}.q{at %s line %d}, $proc, $file, $line;
}
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Scope::Value;
@@ -53,11 +54,14 @@ sub leave{
return;
}
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Scope::Tmps;
use Mouse;
extends 'Acme::Perl::VM::Scope::Value';
+
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Scope::Comppad;
@@ -86,6 +90,7 @@ sub leave{
return;
}
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Scope::Clearsv;
@@ -124,6 +129,7 @@ sub leave{
return;
}
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Scope::Padsv;
@@ -164,6 +170,7 @@ sub leave{
return;
}
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Scope::Localizer; # ABSTRACT
@@ -202,6 +209,7 @@ sub leave{
return;
}
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Scope::Scalar;
@@ -231,6 +239,7 @@ sub sv{
return $self->gv->SV;
}
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Scope::Scalar::Magical;
@@ -249,6 +258,7 @@ sub leave{
return;
}
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Scope::Array;
@@ -269,6 +279,8 @@ sub sv{
my($self) = @_;
return $self->gv->AV;
}
+
+no Mouse;
__PACKAGE__->meta->make_immutable();
package Acme::Perl::VM::Scope::Hash;
@@ -289,6 +301,8 @@ sub sv{
my($self) = @_;
return $self->gv->HV;
}
+
+no Mouse;
__PACKAGE__->meta->make_immutable();

0 comments on commit 569f2bc

Please sign in to comment.