comparison Lib/IMPL/DOM/Document.pm @ 165:76515373dac0

Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:06:48 +0400
parents 1e7f03414b65
children d1676be8afcc
comparison
equal deleted inserted replaced
164:eb3e9861a761 165:76515373dac0
1 package IMPL::DOM::Document; 1 package IMPL::DOM::Document;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use base qw(IMPL::DOM::Node); 5 use parent qw(IMPL::DOM::Node);
6 6
7 __PACKAGE__->PassThroughArgs; 7 __PACKAGE__->PassThroughArgs;
8 8
9 sub document { 9 sub document {
10 return $_[0]; 10 return $_[0];
64 =head1 SYNOPSIS 64 =head1 SYNOPSIS
65 65
66 =begin code 66 =begin code
67 67
68 package MyDocument; 68 package MyDocument;
69 use base qw(IMPL::DOM::Document); 69 use parent qw(IMPL::DOM::Document);
70 70
71 sub Create { 71 sub Create {
72 my $this = shift; 72 my $this = shift;
73 my ($name,$class,$hashProps) = @_; 73 my ($name,$class,$hashProps) = @_;
74 74