X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FScript.pm;fp=lib%2FDevel%2FREPL%2FScript.pm;h=bf36136466ef8f2e09a210fbe7218fbf03b8a962;hp=277fc91292bd82b092abd0bce0ece59ebaac8a64;hb=3bcf4eb89e6fd4f7ae37fae50255a2b09e655677;hpb=e65ad1eb54618fdbbe9b17754f465ef1bf248cb2 diff --git a/lib/Devel/REPL/Script.pm b/lib/Devel/REPL/Script.pm index 277fc91..bf36136 100644 --- a/lib/Devel/REPL/Script.pm +++ b/lib/Devel/REPL/Script.pm @@ -32,6 +32,8 @@ sub load_profile { 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); }