[Rt-commit] r3164 - in DBIx-SearchBuilder/trunk: . SearchBuilder
SearchBuilder/Handle SearchBuilder/Record inc/Module
inc/Module/Install
jesse at bestpractical.com
jesse at bestpractical.com
Wed Jun 15 13:37:47 EDT 2005
Author: jesse
Date: Wed Jun 15 13:37:45 2005
New Revision: 3164
Modified:
DBIx-SearchBuilder/trunk/ (props changed)
DBIx-SearchBuilder/trunk/Changes
DBIx-SearchBuilder/trunk/META.yml
DBIx-SearchBuilder/trunk/SearchBuilder.pm
DBIx-SearchBuilder/trunk/SearchBuilder/Handle.pm
DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Informix.pm
DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Oracle.pm
DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Pg.pm
DBIx-SearchBuilder/trunk/SearchBuilder/Handle/SQLite.pm
DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Sybase.pm
DBIx-SearchBuilder/trunk/SearchBuilder/Handle/mysql.pm
DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm
DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm
DBIx-SearchBuilder/trunk/inc/Module/Install.pm
DBIx-SearchBuilder/trunk/inc/Module/Install/AutoInstall.pm
DBIx-SearchBuilder/trunk/inc/Module/Install/Base.pm
DBIx-SearchBuilder/trunk/inc/Module/Install/Makefile.pm
DBIx-SearchBuilder/trunk/inc/Module/Install/Metadata.pm
Log:
r20534 at hualien: jesse | 2005-06-15 13:27:36 -0400
* Patch from ruslan to remove outdated fold markers
Modified: DBIx-SearchBuilder/trunk/Changes
==============================================================================
--- DBIx-SearchBuilder/trunk/Changes (original)
+++ DBIx-SearchBuilder/trunk/Changes Wed Jun 15 13:37:45 2005
@@ -1,5 +1,7 @@
Revision history for Perl extension DBIx::SearchBuilder.
+* Removed {{{ and }}} fold markers. Patch from Ruslan
+
1.30_03 Thu Jun 9 01:35:49 EDT 2005
* Significant new tests from Ruslan Zakirov and Dave Glasser
Modified: DBIx-SearchBuilder/trunk/META.yml
==============================================================================
--- DBIx-SearchBuilder/trunk/META.yml (original)
+++ DBIx-SearchBuilder/trunk/META.yml Wed Jun 15 13:37:45 2005
@@ -1,9 +1,9 @@
name: DBIx-SearchBuilder
-version: 1.30_02
+version: 1.30_03
license: perl
distribution_type: module
build_requires:
- Test::More: 0
+ Test::More: 0.52
requires:
DBI: 0
Want: 0
Modified: DBIx-SearchBuilder/trunk/SearchBuilder.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder.pm (original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder.pm Wed Jun 15 13:37:45 2005
@@ -1,4 +1,3 @@
-# {{{ Version, package, new, etc
package DBIx::SearchBuilder;
@@ -67,7 +66,6 @@
=cut
-# {{{ sub new
=head2 new
@@ -93,9 +91,7 @@
return ($self);
}
-# }}}
-# {{{ sub _Init
=head2 _Init
@@ -114,9 +110,7 @@
$self->CleanSlate();
}
-# }}}
-# {{{ sub CleanSlate
=head2 CleanSlate
@@ -158,9 +152,7 @@
}
-# }}}
-# {{{ sub _Handle
=head2 _Handle [DBH]
@@ -176,9 +168,7 @@
return ( $self->{'DBIxHandle'} );
}
-# }}}
-# {{{ sub _DoSearch
=head2 _DoSearch
@@ -211,7 +201,6 @@
return $self->_RecordCount;
}
-# }}}
=head2 AddRecord RECORD
@@ -239,7 +228,6 @@
}
-# {{{ sub _DoCount
=head2 _DoCount
@@ -265,7 +253,6 @@
return ( $row[0] );
}
-# }}}
=head2 _ApplyLimits STATEMENTREF
@@ -292,7 +279,6 @@
}
-# {{{ sub _DistinctQuery
=head2 _DistinctQuery STATEMENTREF
@@ -316,9 +302,7 @@
}
}
-# }}}
-# {{{ sub _BuildJoins
=head2 _BuildJoins
@@ -334,8 +318,6 @@
}
-# }}}
-# {{{ sub _isJoined
=head2 _isJoined
@@ -353,10 +335,8 @@
}
-# }}}
-# {{{ sub _LimitClause
# LIMIT clauses are used for restricting ourselves to subsets of the search.
@@ -379,9 +359,7 @@
return $limit_clause;
}
-# }}}
-# {{{ sub _isLimited
=head2 _isLimited
@@ -399,11 +377,8 @@
}
}
-# }}}
-# }}} Private utility methods
-# {{{ BuildSelectQuery
=head2 BuildSelectQuery
@@ -435,9 +410,7 @@
}
-# }}}
-# {{{ BuildSelectCountQuery
=head2 BuildSelectCountQuery
@@ -467,11 +440,8 @@
return ($QueryString);
}
-# }}}
-# {{{ Methods dealing traversing rows within the found set
-# {{{ sub Next
=head2 Next
@@ -502,9 +472,7 @@
}
}
-# }}}
-# {{{ sub GotoFirstItem
=head2 GotoFirstItem
@@ -520,9 +488,7 @@
$self->GotoItem(0);
}
-# }}}
-# {{{ sub GotoItem
=head2 GotoItem
@@ -539,9 +505,7 @@
$self->{'itemscount'} = $item;
}
-# }}}
-# {{{ sub First
=head2 First
@@ -555,9 +519,7 @@
return ( $self->Next );
}
-# }}}
-# {{{ sub Last
=head2 Last
@@ -571,9 +533,7 @@
return ( $self->Next );
}
-# }}}
-# {{{ ItemsArrayRef
=head2 ItemsArrayRef
@@ -595,11 +555,8 @@
return ( $self->{'items'} || [] );
}
-# }}}
-# }}}
-# {{{ sub NewItem
=head2 NewItem
@@ -615,9 +572,7 @@
"DBIx::SearchBuilder needs to be subclassed. you can't use it directly.\n";
}
-# }}}
-# {{{ sub RedoSearch
=head2 RedoSearch
@@ -631,11 +586,8 @@
$self->{'must_redo_search'} = 1;
}
-# }}}
-# {{{ Routines dealing with Restrictions (where subclauses)
-# {{{ sub UnLimit
=head2 UnLimit
@@ -649,9 +601,7 @@
$self->_isLimited(-1);
}
-# }}}
-# {{{ sub Limit
=head2 Limit
@@ -787,9 +737,7 @@
}
}
-# }}}
-# {{{ sub ShowRestrictions
=head2 ShowRestrictions
@@ -807,9 +755,7 @@
}
-# }}}
-# {{{ sub ImportRestrictions
=head2 ImportRestrictions
@@ -825,9 +771,7 @@
$self->{'where_clause'} = shift;
}
-# }}}
-# {{{ sub _GenericRestriction
sub _GenericRestriction {
my $self = shift;
@@ -946,9 +890,7 @@
}
-# }}}
-# {{{ Parentheses Control
sub _OpenParen {
my ( $self, $clause ) = @_;
$self->{_open_parens}{$clause}++;
@@ -966,9 +908,7 @@
}
}
-# }}}
-# {{{ sub _AddRestriction
sub _AddSubClause {
my $self = shift;
my $clauseid = shift;
@@ -978,9 +918,7 @@
}
-# }}}
-# {{{ sub _WhereClause
sub _WhereClause {
my $self = shift;
@@ -1010,9 +948,7 @@
}
-# }}}
-# {{{ sub _CompileGenericRestrictions
#Compile the restrictions to a WHERE Clause
@@ -1032,13 +968,9 @@
}
}
-# }}}
-# }}}
-# {{{ Routines dealing with ordering
-# {{{ sub OrderBy
=head2 Orderby PARAMHASH
@@ -1112,9 +1044,7 @@
$self->RedoSearch();
}
-# }}}
-# {{{ sub _OrderClause
=head2 _OrderClause
@@ -1129,13 +1059,9 @@
return ($self->{'order_clause'});
}
-# }}}
-# }}}
-# {{{ Routines dealing with grouping
-# {{{ GroupBy (OBSOLETE)
=head2 GroupBy (DEPRECATED)
@@ -1145,9 +1071,7 @@
sub GroupBy { (shift)->GroupByCols( @_ ) }
-# }}}
-# {{{ GroupByCols
=head2 GroupByCols ARRAY_OF_HASHES
@@ -1188,9 +1112,7 @@
}
$self->RedoSearch();
}
-# }}}
-# {{{ _GroupClause
=head2 _GroupClause
@@ -1205,13 +1127,9 @@
return ($self->{'group_clause'});
}
-# }}}
-# }}}
-# {{{ routines dealing with table aliases and linking tables
-# {{{ sub NewAlias
=head2 NewAlias
@@ -1234,9 +1152,7 @@
return $alias;
}
-# }}}
-# {{{ sub _GetAlias
# _GetAlias is a private function which takes an tablename and
# returns a new alias for that table without adding something
@@ -1254,9 +1170,7 @@
}
-# }}}
-# {{{ sub Join
=head2 Join
@@ -1294,34 +1208,24 @@
}
-# }}}
-# }}}
-# {{{ Deal with 'pages' of results'
-# {{{ sub NextPage
sub NextPage {
my $self = shift;
$self->FirstRow( $self->FirstRow + $self->RowsPerPage );
}
-# }}}
-# {{{ sub FirstPage
sub FirstPage {
my $self = shift;
$self->FirstRow(1);
}
-# }}}
-# {{{ sub LastPage
-# }}}
-# {{{ sub PrevPage
sub PrevPage {
my $self = shift;
@@ -1333,9 +1237,7 @@
}
}
-# }}}
-# {{{ sub GotoPage
sub GotoPage {
my $self = shift;
@@ -1348,9 +1250,7 @@
}
}
-# }}}
-# {{{ sub RowsPerPage
=head2 RowsPerPage
@@ -1367,9 +1267,7 @@
return ( $self->{'show_rows'} );
}
-# }}}
-# {{{ sub FirstRow
=head2 FirstRow
@@ -1395,13 +1293,9 @@
return ( $self->{'first_row'} );
}
-# }}}
-# }}}
-# {{{ Public utility methods
-# {{{ sub _ItemsCounter
=head2 _ItemsCounter
@@ -1414,9 +1308,7 @@
return $self->{'itemscount'};
}
-# }}}
-# {{{ sub Count
=head2 Count
@@ -1451,9 +1343,7 @@
}
}
-# }}}
-# {{{ sub CountAll
=head2 CountAll
@@ -1506,10 +1396,8 @@
}
}
-# }}}
-# {{{ sub IsLast
=head2 IsLast
@@ -1530,9 +1418,7 @@
}
}
-# }}}
-# {{{ sub DEBUG
sub DEBUG {
my $self = shift;
@@ -1542,14 +1428,11 @@
return ( $self->{'DEBUG'} );
}
-# }}}
-# }}}
-# {{{ Column
=head2 Column { FIELD => undef }
@@ -1603,9 +1486,7 @@
return $column;
}
-# }}}
-# {{{ Columns
=head2 Columns LIST
@@ -1619,9 +1500,7 @@
$self->Column( FIELD => $_ ) for @_;
}
-# }}}
-# {{{ Fields
=head2 Fields TABLE
@@ -1649,10 +1528,8 @@
};
}
-# }}}
-# {{{ HasField
=head2 HasField { TABLE => undef, FIELD => undef }
@@ -1672,9 +1549,7 @@
return grep { $_ eq $field } $self->Fields($table);
}
-# }}}
-# {{{ SetTable
=head2 Table [TABLE]
@@ -1696,7 +1571,6 @@
}
-# }}}
if( eval { require capitalization } ) {
capitalization->unimport( __PACKAGE__ );
}
@@ -1704,7 +1578,6 @@
1;
__END__
-# {{{ POD
=head1 TESTING
@@ -1738,7 +1611,6 @@
=cut
-# }}}
Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Handle.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Handle.pm (original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Handle.pm Wed Jun 15 13:37:45 2005
@@ -13,7 +13,6 @@
$VERSION = '$Version$';
-# {{{ Top POD
=head1 NAME
@@ -37,9 +36,7 @@
=cut
-# }}}
-# {{{ sub new
=head2 new
@@ -57,9 +54,7 @@
return $self;
}
-# }}}
-# {{{ sub Connect
=head2 Connect PARAMHASH: Driver, Database, Host, User, Password
@@ -125,9 +120,7 @@
return(undef);
}
-# }}}
-# {{{ _UpgradeHandle
=head2 _UpgradeHandle DRIVER
@@ -148,10 +141,8 @@
return 1;
}
-# }}}
-# {{{ BuildDSN
=head2 BuildDSN PARAMHASH
@@ -184,9 +175,7 @@
$self->{'dsn'}= $dsn;
}
-# }}}
-# {{{ DSN
=head2 DSN
@@ -198,9 +187,7 @@
return($self->{'dsn'});
}
-# }}}
-# {{{ RaiseError
=head2 RaiseError [MODE]
@@ -218,9 +205,7 @@
}
-# }}}
-# {{{ PrintError
=head2 PrintError [MODE]
@@ -238,7 +223,6 @@
}
-# }}}
=head2 LogSQLStatements BOOL
@@ -301,7 +285,6 @@
}
-# {{{ AutoCommit
=head2 AutoCommit [MODE]
@@ -319,9 +302,7 @@
}
-# }}}
-# {{{ sub Disconnect
=head2 Disconnect
@@ -338,9 +319,7 @@
}
}
-# }}}
-# {{{ sub Handle / dbh
=head2 dbh [HANDLE]
@@ -360,9 +339,7 @@
return($DBIHandle{$self} ||= $PrevHandle);
}
-# }}}
-# {{{ sub Insert
=head2 Insert $TABLE_NAME @KEY_VALUE_PAIRS
Takes a table name and a set of key-value pairs in an array. splits the key value pairs, constructs an INSERT statement and performs the insert. Returns the row_id of this row.
@@ -389,9 +366,7 @@
my $sth = $self->SimpleQuery($QueryString, @bind);
return ($sth);
}
-# }}}
-# {{{ sub UpdateRecordValue
=head2 UpdateRecordValue
@@ -461,9 +436,7 @@
return $self->UpdateRecordValue(%args)
}
-# }}}
-# {{{ sub SimpleQuery
=head2 SimpleQuery QUERY_STRING, [ BIND_VALUE, ... ]
@@ -548,9 +521,7 @@
}
-# }}}
-# {{{ sub FetchResult
=head2 FetchResult QUERY, [ BIND_VALUE, ... ]
@@ -573,9 +544,7 @@
return($sth);
}
}
-# }}}
-# {{{ BinarySafeBLOBs
=head2 BinarySafeBLOBs
@@ -589,9 +558,7 @@
return(1);
}
-# }}}
-# {{{ KnowsBLOBs
=head2 KnowsBLOBs
@@ -605,9 +572,7 @@
return(1);
}
-# }}}
-# {{{ BLOBParams
=head2 BLOBParams FIELD_NAME FIELD_TYPE
@@ -622,9 +587,7 @@
return ( {} );
}
-# }}}
-# {{{ DatabaseVersion
=head2 DatabaseVersion
@@ -642,9 +605,7 @@
$self->{'database_version'}= $vals[0];
}
}
-# }}}
-# {{{ CaseSensitive
=head2 CaseSensitive
@@ -659,10 +620,8 @@
}
-# }}}
-# {{{ _MakeClauseCaseInsensitive
=head2 _MakeClauseCaseInsensitive FIELD OPERATOR VALUE
@@ -687,9 +646,7 @@
}
-# }}}
-# {{{ BeginTransaction
=head2 BeginTransaction
@@ -710,9 +667,7 @@
}
}
-# }}}
-# {{{ Commit
=head2 Commit
@@ -733,9 +688,7 @@
}
}
-# }}}
-# {{{ Rollback
=head2 Rollback [FORCE]
@@ -764,7 +717,6 @@
}
}
-# }}}
=head2 ForceRollback
@@ -790,7 +742,6 @@
}
-# {{{ ApplyLimits
=head2 ApplyLimits STATEMENTREF ROWS_PER_PAGE FIRST_ROW
@@ -820,10 +771,8 @@
}
-# }}}
-# {{{ Join
=head2 Join { Paramhash }
@@ -1027,9 +976,7 @@
}
-# }}}
-# {{{ DistinctQuery
=head2 DistinctQuery STATEMENTREF
@@ -1048,10 +995,8 @@
}
-# }}}
-# {{{ DistinctCount
=head2 DistinctCount STATEMENTREF
@@ -1069,7 +1014,6 @@
}
-# }}}
=head2 Log MESSAGE
@@ -1105,7 +1049,6 @@
1;
__END__
-# {{{ POD
=head1 AUTHOR
@@ -1117,4 +1060,3 @@
=cut
-# }}}
Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Informix.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Informix.pm (original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Informix.pm Wed Jun 15 13:37:45 2005
@@ -23,7 +23,6 @@
=cut
-# {{{ sub Insert
=head2 Insert
@@ -49,7 +48,6 @@
return( $self->{'id'}); #Add Succeded. return the id
}
-# }}}
=head2 CaseSensitive
@@ -62,7 +60,6 @@
return(1);
}
-# }}}
=head2 BuildDSN
@@ -87,7 +84,6 @@
$self->{'dsn'}= $dsn;
}
-# {{{ ApplyLimits
=head2 ApplyLimits STATEMENTREF ROWS_PER_PAGE FIRST_ROW
@@ -108,7 +104,6 @@
}
}
-# }}}
sub Disconnect {
my $self = shift;
@@ -121,7 +116,6 @@
}
}
-# {{{ DistinctQuery
=head2 DistinctQuery STATEMENTREF
@@ -141,7 +135,6 @@
}
-# }}}
1;
Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Oracle.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Oracle.pm (original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Oracle.pm Wed Jun 15 13:37:45 2005
@@ -24,7 +24,6 @@
=cut
-# {{{ sub Connect
=head2 Connect PARAMHASH: Driver, Database, Host, User, Password
@@ -52,9 +51,7 @@
return ($DBIHandle);
}
-# }}}
-# {{{ sub Insert
=head2 Insert
@@ -119,9 +116,7 @@
return( $self->{'id'}); #Add Succeded. return the id
}
-# }}}
-# {{{ BuildDSN
=head2 BuildDSN PARAMHASH
@@ -158,9 +153,7 @@
$self->{'dsn'}= $dsn;
}
-# }}}
-# {{{ KnowsBLOBs
=head2 KnowsBLOBs
@@ -174,9 +167,7 @@
return(undef);
}
-# }}}
-# {{{ BLOBParams
=head2 BLOBParams FIELD_NAME FIELD_TYPE
@@ -195,9 +186,7 @@
});
}
-# }}}
-# {{{ ApplyLimits
=head2 ApplyLimits STATEMENTREF ROWS_PER_PAGE FIRST_ROW
@@ -243,9 +232,7 @@
}
}
-# }}}
-# {{{ DistinctQuery
=head2 DistinctQuery STATEMENTREF
@@ -265,10 +252,8 @@
}
-# }}}
-# {{{ BinarySafeBLOBs
=head2 BinarySafeBLOBs
@@ -282,7 +267,6 @@
return(undef);
}
-# }}}
1;
Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Pg.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Pg.pm (original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Pg.pm Wed Jun 15 13:37:45 2005
@@ -26,7 +26,6 @@
=cut
-# {{{ sub Connect
=head2 Connect
@@ -45,9 +44,7 @@
$self->AutoCommit(1);
return ($DBIHandle);
}
-# }}}
-# {{{ sub Insert
=head2 Insert
@@ -84,9 +81,7 @@
return ($self->{'id'});
}
-# }}}
-# {{{ BinarySafeBLOBs
=head2 BinarySafeBLOBs
@@ -99,7 +94,6 @@
return(undef);
}
-# }}}
=head2 ApplyLimits STATEMENTREF ROWS_PER_PAGE FIRST_ROW
@@ -128,7 +122,6 @@
}
-# {{{ _MakeClauseCaseInsensitive
=head2 _MakeClauseCaseInsensitive FIELD OPERATOR VALUE
@@ -171,7 +164,6 @@
}
}
-# }}}
1;
__END__
Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Handle/SQLite.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Handle/SQLite.pm (original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Handle/SQLite.pm Wed Jun 15 13:37:45 2005
@@ -22,7 +22,6 @@
=cut
-# {{{ sub Insert
=head2 Insert
@@ -50,7 +49,6 @@
return( $self->{'id'}); #Add Succeded. return the id
}
-# }}}
=head2 CaseSensitive
@@ -68,7 +66,6 @@
return undef;
}
-# }}}
=head2 DistinctCount STATEMENTREF
@@ -87,7 +84,6 @@
}
-# }}}
=head2 _BuildJoins
Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Sybase.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Sybase.pm (original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Sybase.pm Wed Jun 15 13:37:45 2005
@@ -23,7 +23,6 @@
=cut
-# {{{ sub Insert
=head2 Insert
@@ -60,7 +59,6 @@
-# }}}
=head2 DatabaseVersion
@@ -90,7 +88,6 @@
}
-# }}}
sub ApplyLimits {
@@ -118,7 +115,6 @@
}
-# {{{ BinarySafeBLOBs
=head2 BinarySafeBLOBs
@@ -132,9 +128,7 @@
return(undef);
}
-# }}}
-# }}}
1;
Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Handle/mysql.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Handle/mysql.pm (original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Handle/mysql.pm Wed Jun 15 13:37:45 2005
@@ -23,7 +23,6 @@
=cut
-# {{{ sub Insert
=head2 Insert
@@ -53,7 +52,6 @@
return( $self->{'id'}); #Add Succeded. return the id
}
-# }}}
=head2 DatabaseVersion
@@ -81,7 +79,6 @@
return(undef);
}
-# }}}
1;
Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm (original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm Wed Jun 15 13:37:45 2005
@@ -8,7 +8,6 @@
use Class::ReturnValue;
-# {{{ Doc
=head1 NAME
@@ -345,7 +344,6 @@
=cut
-# }}}
=head2 new
@@ -366,7 +364,6 @@
return $self;
}
-# }}}
# Not yet documented here. Should almost certainly be overloaded.
sub _Init {
@@ -375,7 +372,6 @@
$self->_Handle($handle);
}
-# {{{ sub Id and id
=head2 id
@@ -393,7 +389,6 @@
return $ret;
}
-# }}}
=head2 primary_keys
@@ -414,15 +409,11 @@
-# {{{ Routines dealing with getting and setting row data
-# {{{ sub DESTROY
sub DESTROY {
return 1;
}
-# }}}
-# {{{ sub AUTOLOAD
sub AUTOLOAD {
my $self = $_[0];
@@ -507,9 +498,7 @@
}
-# }}}
-# {{{ sub _Accessible
=head2 _Accessible KEY MODE
@@ -530,7 +519,6 @@
return $attribute->{$mode};
}
-# }}}
=head2 _PrimaryKeys
@@ -553,7 +541,6 @@
return $pkeys->[0];
}
-# {{{ sub _ClassAccessible
=head2 _ClassAccessible
@@ -618,7 +605,6 @@
return $accessible;
}
-# }}}
sub _ToRecord {
my $self = shift;
@@ -680,9 +666,7 @@
return (@readable);
}
-# }}}
-# {{{ sub WritableAttributes
=head2 WritableAttributes
@@ -698,10 +682,8 @@
}
-# }}}
-# {{{ sub __Value {
=head2 __Value
@@ -730,8 +712,6 @@
return $value;
}
-# }}}
-# {{{ sub _Value
=head2 _Value
@@ -746,9 +726,7 @@
return ($self->__Value(@_));
}
-# }}}
-# {{{ sub _Set
=head2 _Set
@@ -877,9 +855,7 @@
return ( $ret->return_value );
}
-# }}}
-# {{{ sub _Validate
#TODO: Implement _Validate.
@@ -900,9 +876,7 @@
return(1);
}
-# }}}
-# {{{ sub TruncateValue
=head2 TruncateValue KEY VALUE
@@ -955,9 +929,7 @@
}
}
-# }}}
-# {{{ sub _Object
=head2 _Object
@@ -1004,11 +976,8 @@
return $object;
}
-# }}}
-# {{{ routines dealing with loading records
-# {{{ sub Load
# load should do a bit of overloading
# if we call it with only one argument, we're trying to load by reference.
@@ -1031,8 +1000,6 @@
return $self->LoadById(@_);
}
-# }}}
-# {{{ sub LoadByCol
=head2 LoadByCol
@@ -1052,9 +1019,7 @@
return($self->LoadByCols($col => $val));
}
-# }}}
-# {{{ sub LoadByCols
=head2 LoadByCols
@@ -1110,9 +1075,7 @@
}
-# }}}
-# {{{ sub LoadById
=head2 LoadById
@@ -1130,10 +1093,8 @@
return ($self->LoadByCols($pkey => $id));
}
-# }}}
-# {{{ LoadByPrimaryKeys
=head2 LoadByPrimaryKeys
@@ -1155,10 +1116,8 @@
return ($self->LoadByCols(%cols));
}
-# }}}
-# {{{ sub LoadFromHash
=head2 LoadFromHash
@@ -1181,9 +1140,7 @@
return $self->id();
}
-# }}}
-# {{{ sub _LoadFromSQL
=head2 _LoadFromSQL QUERYSTRING @BIND_VALUES
@@ -1229,13 +1186,9 @@
}
-# }}}
-# }}}
-# {{{ Routines dealing with creating or deleting rows in the DB
-# {{{ sub Create
=head2 Create
@@ -1279,9 +1232,7 @@
return ( $self->_Handle->Insert( $self->Table, %attribs ) );
}
-# }}}
-# {{{ sub Delete
=head2 Delete
@@ -1321,12 +1272,9 @@
}
}
-# }}}
-# }}}
-# {{{ sub Table
=head2 Table
@@ -1344,9 +1292,7 @@
return ($self->{'table'});
}
-# }}}
-# {{{ sub _Handle
=head2 _Handle
@@ -1363,7 +1309,6 @@
return ($self->{'DBIxHandle'});
}
-# }}}
if( eval { require capitalization } ) {
capitalization->unimport( __PACKAGE__ );
@@ -1373,7 +1318,6 @@
__END__
-# {{{ POD
=head1 AUTHOR
@@ -1390,5 +1334,4 @@
=cut
-# }}}
Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm (original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Record/Cachable.pm Wed Jun 15 13:37:45 2005
@@ -11,7 +11,6 @@
use strict;
-# {{{ Doc
=head1 NAME
@@ -32,7 +31,6 @@
=cut
-# }}}
my %_CACHES = ();
@@ -346,7 +344,6 @@
__END__
-# {{{ POD
=head1 AUTHOR
@@ -358,5 +355,4 @@
=cut
-# }}}
Modified: DBIx-SearchBuilder/trunk/inc/Module/Install.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/inc/Module/Install.pm (original)
+++ DBIx-SearchBuilder/trunk/inc/Module/Install.pm Wed Jun 15 13:37:45 2005
@@ -1,4 +1,4 @@
-#line 1 "inc/Module/Install.pm - /Library/Perl/5.8.6/Module/Install.pm"
+#line 1 "inc/Module/Install.pm - /usr/local/share/perl/5.8.4/Module/Install.pm"
package Module::Install;
$VERSION = '0.36';
Modified: DBIx-SearchBuilder/trunk/inc/Module/Install/AutoInstall.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/inc/Module/Install/AutoInstall.pm (original)
+++ DBIx-SearchBuilder/trunk/inc/Module/Install/AutoInstall.pm Wed Jun 15 13:37:45 2005
@@ -1,4 +1,4 @@
-#line 1 "inc/Module/Install/AutoInstall.pm - /Library/Perl/5.8.6/Module/Install/AutoInstall.pm"
+#line 1 "inc/Module/Install/AutoInstall.pm - /usr/local/share/perl/5.8.4/Module/Install/AutoInstall.pm"
package Module::Install::AutoInstall;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
Modified: DBIx-SearchBuilder/trunk/inc/Module/Install/Base.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/inc/Module/Install/Base.pm (original)
+++ DBIx-SearchBuilder/trunk/inc/Module/Install/Base.pm Wed Jun 15 13:37:45 2005
@@ -1,4 +1,4 @@
-#line 1 "inc/Module/Install/Base.pm - /Library/Perl/5.8.6/Module/Install/Base.pm"
+#line 1 "inc/Module/Install/Base.pm - /usr/local/share/perl/5.8.4/Module/Install/Base.pm"
package Module::Install::Base;
#line 28
Modified: DBIx-SearchBuilder/trunk/inc/Module/Install/Makefile.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/inc/Module/Install/Makefile.pm (original)
+++ DBIx-SearchBuilder/trunk/inc/Module/Install/Makefile.pm Wed Jun 15 13:37:45 2005
@@ -1,4 +1,4 @@
-#line 1 "inc/Module/Install/Makefile.pm - /Library/Perl/5.8.6/Module/Install/Makefile.pm"
+#line 1 "inc/Module/Install/Makefile.pm - /usr/local/share/perl/5.8.4/Module/Install/Makefile.pm"
package Module::Install::Makefile;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
Modified: DBIx-SearchBuilder/trunk/inc/Module/Install/Metadata.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/inc/Module/Install/Metadata.pm (original)
+++ DBIx-SearchBuilder/trunk/inc/Module/Install/Metadata.pm Wed Jun 15 13:37:45 2005
@@ -1,4 +1,4 @@
-#line 1 "inc/Module/Install/Metadata.pm - /Library/Perl/5.8.6/Module/Install/Metadata.pm"
+#line 1 "inc/Module/Install/Metadata.pm - /usr/local/share/perl/5.8.4/Module/Install/Metadata.pm"
package Module::Install::Metadata;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
More information about the Rt-commit
mailing list