Mercurial > pub > Impl

comparison Lib/IMPL/lang.pm @ 315:77df11605d3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
code cleanup
author cin
date Tue, 07 May 2013 02:19:24 +0400
parents c6d0f889ef87
children d5c8b955bf8d
comparison
equal deleted inserted replaced
314:109f28643025 315:77df11605d3a
73 carp "A typename can't be undefined" unless $_[1]; 73 carp "A typename can't be undefined" unless $_[1];
74 eval {not ref $_[0] and $_[0]->isa( $_[1] ) }; 74 eval {not ref $_[0] and $_[0]->isa( $_[1] ) };
75 } 75 }
76 76
77 sub typeof(*) { 77 sub typeof(*) {
78 eval { $_[0]->_typeof } || blessed($_[0]) || ref($_[0]) || $_[0]; 78 eval { $_[0]->_typeof } || blessed($_[0]) || ref($_[0]);
79 } 79 }
80 80
81 sub public($) { 81 sub public($) {
82 my $info = shift; 82 my $info = shift;
83 $info->{access} = ACCESS_PUBLIC; 83 $info->{access} = ACCESS_PUBLIC;