annotate Lib/IMPL/lang.pm @ 166:4267a2ac3d46

Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:12:06 +0400
parents 76515373dac0
children 1f7a6d762394
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
164
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
1 package IMPL::lang;
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
2 use strict;
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
3 use warnings;
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
4
165
76515373dac0 Added Class::Template,
wizard
parents: 164
diff changeset
5 use parent qw(Exporter);
164
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
6 use IMPL::_core::version;
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
7
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
8
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
9 our @EXPORT = qw(&is);
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
10
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
11 sub is($$) {
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
12 eval { $_[0]->isa($_[1]) }
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
13 }
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
14
eb3e9861a761 SQL traits in progress
wizard
parents:
diff changeset
15 1;