X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FClass.pm;fp=lib%2FClass%2FMOP%2FClass.pm;h=1482ade88ccffdf5a2c8e07a1801a5a87d74a62c;hb=acf7adee8538ced9d892117274688a9cbd4e4e64;hp=856053a4771321fe58fbef39af65964a608e8788;hpb=b4679f81dd8d644a8584ad3d28e54aed9bb042bd;p=gitmo%2FMoose.git diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm index 856053a..1482ade 100644 --- a/lib/Class/MOP/Class.pm +++ b/lib/Class/MOP/Class.pm @@ -1270,7 +1270,7 @@ sub _immutable_options { sub make_immutable { my ( $self, @args ) = @_; - return if not $self->is_mutable; + return unless $self->is_mutable; my ($file, $line) = (caller)[1..2]; @@ -1280,6 +1280,7 @@ sub make_immutable { $self->_immutable_options(@args), ); $self->_rebless_as_immutable(@args); + return $self; }