From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 7 May 2008 18:08:51 +0000 (+0000)
Subject: cluck instead of warn
X-Git-Tag: 0_55~191
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c0b374578d87f59f6488354a166cb0d43d58a7d8;p=gitmo%2FMoose.git

cluck instead of warn
---

diff --git a/Changes b/Changes
index a536a28..d34bdc4 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Moose
 
+    * Moose
+      - made make_immutable warning cluck to show where the error is
+
 0.44
     * Moose::Cookbook::Recipe7
       - added new recipe for immutable functionality (Dave Rolsky)
diff --git a/lib/Moose.pm b/lib/Moose.pm
index 8776106..26e62eb 100644
--- a/lib/Moose.pm
+++ b/lib/Moose.pm
@@ -8,7 +8,7 @@ our $VERSION   = '0.43';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use Scalar::Util 'blessed', 'reftype';
-use Carp         'confess', 'croak';
+use Carp         'confess', 'croak', 'cluck';
 use Sub::Name    'subname';
 
 use Sub::Exporter;
@@ -174,8 +174,8 @@ use Moose::Util ();
         make_immutable => sub {
             my $class = $CALLER;
             return subname 'Moose::make_immutable' => sub {
-                warn "The make_immutable keyword has been deprecated, " . 
-                     "please go back to __PACKAGE__->meta->make_immutable\n";
+                cluck "The make_immutable keyword has been deprecated, " . 
+                      "please go back to __PACKAGE__->meta->make_immutable\n";
                 $class->meta->make_immutable(@_);
             };            
         },