Mercurial > pub > Impl

diff Lib/IMPL/declare.pm @ 209:a8db61d0ed33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
IMPL::Class::Meta refactoring
author cin
date Mon, 28 May 2012 19:58:56 +0400
parents 2ffe6f661605
children 2b9b55cfb79b
line wrap: on
line diff
--- a/Lib/IMPL/declare.pm	Fri May 18 18:43:00 2012 +0400
+++ b/Lib/IMPL/declare.pm	Mon May 28 19:58:56 2012 +0400
@@ -2,6 +2,7 @@
 use strict;
 
 use Scalar::Util qw(set_prototype);
+use Carp qw(carp);
 
 sub import {
 	my ($self,$args) = @_;
@@ -30,6 +31,7 @@
     my @isa;
     
     if (ref $base eq 'ARRAY') {
+    	carp("will be changed in next version");
     	@isa = map _require($_), @$base if @$base;
     } elsif (ref $base eq 'HASH' ) {
     	while ( my ($class,$mapper) = each %$base ) {