Mercurial > pub > Impl

comparison Lib/IMPL/SQL/Schema/Traits/mysql.pm @ 278:4ddb27ff4a0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
core refactoring
author cin
date Mon, 04 Feb 2013 02:10:37 +0400
parents c8fe3f84feba
children
comparison
equal deleted inserted replaced
277:6585464c4664 278:4ddb27ff4a0b
1 package IMPL::SQL::Schema::Traits::mysql::Handler; 1 package IMPL::SQL::Schema::Traits::mysql::Handler;
2 use strict; 2 use strict;
3 use parent qw(IMPL::Object); 3 use parent qw(IMPL::Object);
4 use IMPL::Class::Property; 4 use IMPL::Class::Property;
5 use IMPL::Class::Property::Direct;
6 5
7 BEGIN { 6 BEGIN {
8 public _direct property SqlBatch => prop_all; 7 public _direct property SqlBatch => prop_all;
9 } 8 }
10 9
466 return join("\n",$this->SqlBatch); 465 return join("\n",$this->SqlBatch);
467 } 466 }
468 } 467 }
469 468
470 package IMPL::SQL::Schema::Traits::mysql; 469 package IMPL::SQL::Schema::Traits::mysql;
471 use Common;
472 use parent qw(IMPL::SQL::Schema::Traits); 470 use parent qw(IMPL::SQL::Schema::Traits);
473 use IMPL::Class::Property; 471 use IMPL::Class::Property;
474 use IMPL::Class::Property::Direct;
475 472
476 BEGIN { 473 BEGIN {
477 public _direct property PendingConstraints => prop_none; 474 public _direct property PendingConstraints => prop_none;
478 } 475 }
479 476
510 507
511 return IMPL::SQL::Schema::Traits::mysql::MetaTable->new( DBHandle => $dbh); 508 return IMPL::SQL::Schema::Traits::mysql::MetaTable->new( DBHandle => $dbh);
512 } 509 }
513 510
514 package IMPL::SQL::Schema::Traits::mysql::MetaTable; 511 package IMPL::SQL::Schema::Traits::mysql::MetaTable;
515 use Common;
516 use parent qw(IMPL::Object); 512 use parent qw(IMPL::Object);
517 use IMPL::Class::Property; 513 use IMPL::Class::Property;
518 use IMPL::Class::Property::Direct;
519 514
520 BEGIN { 515 BEGIN {
521 public _direct property DBHandle => prop_none; 516 public _direct property DBHandle => prop_none;
522 } 517 }
523 518