[Bast-commits] r3748 - trunk/Devel-REPL/lib/Devel/REPL

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-09-16 00:08:43 +0100 (Sun, 16 Sep 2007)
New Revision: 3748

Modified:
   trunk/Devel-REPL/lib/Devel/REPL/Script.pm
Log:
profile class assertion

Modified: trunk/Devel-REPL/lib/Devel/REPL/Script.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Script.pm	2007-09-15 23:07:52 UTC (rev 3747)
+++ trunk/Devel-REPL/lib/Devel/REPL/Script.pm	2007-09-15 23:08:43 UTC (rev 3748)
@@ -32,6 +32,8 @@
   my ($self, $profile) = @_;
   $profile = "Devel::REPL::Profile::${profile}" unless $profile =~ /::/;
   Class::MOP::load_class($profile);
+  confess "Profile class ${profile} doesn't do 'Devel::REPL::Profile'"
+    unless $profile->does('Devel::REPL::Profile');
   $profile->new->apply_profile($self->_repl);
 }