[SearchBuilder-devel] [PATCH] strip comments with '# {{{|}}}'
style
Jesse Vincent
jesse at bestpractical.com
Wed Jun 15 13:28:15 EDT 2005
Thanks. Applied
On Wed, Jun 15, 2005 at 02:00:29AM +0400, Ruslan U. Zakirov wrote:
> subj
> === META.yml
> ==================================================================
> --- META.yml (revision 1782)
> +++ META.yml (local)
> @@ -3,7 +3,7 @@
> license: perl
> distribution_type: module
> build_requires:
> - Test::More: 0
> + Test::More: 0.52
> requires:
> DBI: 0
> Want: 0
> === SearchBuilder/Handle/Informix.pm
> ==================================================================
> --- SearchBuilder/Handle/Informix.pm (revision 1782)
> +++ SearchBuilder/Handle/Informix.pm (local)
> @@ -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;
>
> === SearchBuilder/Handle/Oracle.pm
> ==================================================================
> --- SearchBuilder/Handle/Oracle.pm (revision 1782)
> +++ SearchBuilder/Handle/Oracle.pm (local)
> @@ -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;
>
> === SearchBuilder/Handle/Pg.pm
> ==================================================================
> --- SearchBuilder/Handle/Pg.pm (revision 1782)
> +++ SearchBuilder/Handle/Pg.pm (local)
> @@ -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__
> === SearchBuilder/Handle/SQLite.pm
> ==================================================================
> --- SearchBuilder/Handle/SQLite.pm (revision 1782)
> +++ SearchBuilder/Handle/SQLite.pm (local)
> @@ -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
> === SearchBuilder/Handle/Sybase.pm
> ==================================================================
> --- SearchBuilder/Handle/Sybase.pm (revision 1782)
> +++ SearchBuilder/Handle/Sybase.pm (local)
> @@ -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;
>
> === SearchBuilder/Handle/mysql.pm
> ==================================================================
> --- SearchBuilder/Handle/mysql.pm (revision 1782)
> +++ SearchBuilder/Handle/mysql.pm (local)
> @@ -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;
>
> === SearchBuilder/Handle.pm
> ==================================================================
> --- SearchBuilder/Handle.pm (revision 1782)
> +++ SearchBuilder/Handle.pm (local)
> @@ -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
>
> -# }}}
> === SearchBuilder/Record/Cachable.pm
> ==================================================================
> --- SearchBuilder/Record/Cachable.pm (revision 1782)
> +++ SearchBuilder/Record/Cachable.pm (local)
> @@ -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
>
> -# }}}
>
> === SearchBuilder/Record.pm
> ==================================================================
> --- SearchBuilder/Record.pm (revision 1782)
> +++ SearchBuilder/Record.pm (local)
> @@ -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
>
> -# }}}
>
> === SearchBuilder.pm
> ==================================================================
> --- SearchBuilder.pm (revision 1782)
> +++ SearchBuilder.pm (local)
> @@ -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
>
> -# }}}
>
>
>
> _______________________________________________
> SearchBuilder-devel mailing list
> SearchBuilder-devel at bestpractical.com
> http://lists.bestpractical.com/cgi-bin/mailman/listinfo/searchbuilder-devel
--
More information about the SearchBuilder-devel
mailing list