===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-223- if (defined $parent) {
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:224: my $a = $dbh->selectrow_arrayref("SELECT rgt FROM `$table` WHERE id = $parent");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-225- $orig = $a->[0] - 1;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:226: $dbh->do("UPDATE `$table` SET rgt = rgt + 2 WHERE rgt > $orig");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:227: $dbh->do("UPDATE `$table` SET lft = lft + 2 WHERE lft > $orig");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-228- } else {
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:229: my $a = $dbh->selectrow_arrayref("SELECT MAX(rgt) FROM `$table` WHERE parent IS NULL");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-230- $orig = $a ? ($a->[0] || 0) : 0;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-281-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:282: my $a = $dbh->selectrow_arrayref("SELECT lft, parent FROM `$table` WHERE id = $pos");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-283- my ($orig, $parent) = @$a;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-284-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:285: $dbh->do("UPDATE `$table` SET rgt = rgt + 2 WHERE rgt >= $orig");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:286: $dbh->do("UPDATE `$table` SET lft = lft + 2 WHERE lft >= $orig");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-287-
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-316-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:317: my $a = $dbh->selectrow_arrayref("SELECT rgt, parent FROM `$table` WHERE id = $pos");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-318- my ($orig, $parent) = @$a;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-319-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:320: $dbh->do("UPDATE `$table` SET rgt = rgt + 2 WHERE rgt > $orig");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:321: $dbh->do("UPDATE `$table` SET lft = lft + 2 WHERE lft > $orig");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-322-
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-390- # get source info
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:391: my $a = $dbh->selectrow_arrayref("SELECT lft, rgt FROM `$table` WHERE id = $source");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-392- my ($orig_left, $orig_right) = @$a;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-395- # hint to ignore subtree items in further computation
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:396: $dbh->do("UPDATE `$table` SET mvg = 1 WHERE lft BETWEEN $orig_left AND $orig_right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-397-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-398- # "collapse" tree by reducing rgt and lft for nodes after the removed one
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:399: $dbh->do("UPDATE `$table` SET rgt = rgt - $width WHERE rgt > $orig_right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:400: $dbh->do("UPDATE `$table` SET lft = lft - $width WHERE lft > $orig_right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-401-
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-405- # get destination info (it's important to do it here as it can be modified by the UPDATE-s above)
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:406: $a = $dbh->selectrow_arrayref("SELECT rgt FROM `$table` WHERE id = $dest");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-407- my ($dest_right) = @$a;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-409-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:410: $dbh->do("UPDATE `$table` SET rgt = rgt + $width WHERE NOT mvg AND rgt >= $dest_right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:411: $dbh->do("UPDATE `$table` SET lft = lft + $width WHERE NOT mvg AND lft >= $dest_right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-412- } else {
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-413- # appending a root node
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:414: my $a = $dbh->selectrow_arrayref("SELECT MAX(rgt) FROM `$table` WHERE parent IS NULL");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-415- my ($dest_right) = @$a;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-420- # finally, update subtree items and remove the ignore hint
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:421: $dbh->do("UPDATE `$table` SET lft = lft + $diff, rgt = rgt + $diff, mvg = 0 WHERE mvg");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:422: $dbh->do("UPDATE `$table` SET parent = $dest WHERE id = $source");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-423-}
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-454- # get source info
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:455: my $a = $dbh->selectrow_arrayref("SELECT lft, rgt FROM `$table` WHERE id = $source");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-456- my ($orig_left, $orig_right) = @$a;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-459- # hint to ignore subtree items in further computation
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:460: $dbh->do("UPDATE `$table` SET mvg = 1 WHERE lft BETWEEN $orig_left AND $orig_right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-461-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-462- # "collapse" tree by reducing rgt and lft for nodes after the removed one
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:463: $dbh->do("UPDATE `$table` SET rgt = rgt - $width WHERE rgt > $orig_right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:464: $dbh->do("UPDATE `$table` SET lft = lft - $width WHERE lft > $orig_right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-465-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-466- # get destination info (it's important to do it here as it can be modified by the UPDATE-s above)
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:467: $a = $dbh->selectrow_arrayref("SELECT lft, parent FROM `$table` WHERE id = $anchor");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-468- my ($dest_left, $dest_parent) = @$a;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-473-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:474: $dbh->do("UPDATE `$table` SET rgt = rgt + $width WHERE NOT mvg AND rgt >= $dest_left");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:475: $dbh->do("UPDATE `$table` SET lft = lft + $width WHERE NOT mvg AND lft >= $dest_left");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-476-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-477- # finally, update subtree items and remove the ignore hint
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:478: $dbh->do("UPDATE `$table` SET lft = lft + $diff, rgt = rgt + $diff, mvg = 0 WHERE mvg");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:479: $dbh->do("UPDATE `$table` SET parent = $dest_parent WHERE id = $source");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-480-}
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-498- # get source info
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:499: my $a = $dbh->selectrow_arrayref("SELECT lft, rgt FROM `$table` WHERE id = $source");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-500- my ($orig_left, $orig_right) = @$a;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-503- # hint to ignore subtree items in further computation
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:504: $dbh->do("UPDATE `$table` SET mvg = 1 WHERE lft BETWEEN $orig_left AND $orig_right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-505-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-506- # "collapse" tree by reducing rgt and lft for nodes after the removed one
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:507: $dbh->do("UPDATE `$table` SET rgt = rgt - $width WHERE rgt > $orig_right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:508: $dbh->do("UPDATE `$table` SET lft = lft - $width WHERE lft > $orig_right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-509-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-510- # get destination info (it's important to do it here as it can be modified by the UPDATE-s above)
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:511: $a = $dbh->selectrow_arrayref("SELECT rgt, parent FROM `$table` WHERE id = $anchor");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-512- my ($dest_right, $dest_parent) = @$a;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-517-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:518: $dbh->do("UPDATE `$table` SET rgt = rgt + $width WHERE NOT mvg AND rgt > $dest_right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:519: $dbh->do("UPDATE `$table` SET lft = lft + $width WHERE NOT mvg AND lft > $dest_right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-520-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-521- # finally, update subtree items and remove the ignore hint
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:522: $dbh->do("UPDATE `$table` SET lft = lft + $diff, rgt = rgt + $diff, mvg = 0 WHERE mvg");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:523: $dbh->do("UPDATE `$table` SET parent = $dest_parent WHERE id = $source");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-524-}
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-548-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:549: my $a = $dbh->selectrow_arrayref("SELECT lft, rgt FROM `$table` WHERE id = $id");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-550- my ($left, $right) = @$a;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-552-
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:553: $dbh->do("DELETE FROM `$table` WHERE lft BETWEEN $left AND $right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:554: $dbh->do("UPDATE `$table` SET rgt = rgt - $width WHERE rgt > $right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:555: $dbh->do("UPDATE `$table` SET lft = lft - $width WHERE lft > $right");
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-556-}
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-643- }
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:644: $where = $args->{where};
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-645- $order = $args->{order} || 'TREE_NODE.lft';
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-652- if ($args->{fields});
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:653: my @fields = map { "TREE_NODE.`$_`" } @keys;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-654- my $sa = $self->get_sql_abstract;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-661- my $table = $self->table;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:662: my $select = 'SELECT ' . join(', ', @fields) . " FROM `$table` AS TREE_NODE INNER JOIN `$table` AS TREE_PARENT " .
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-663- 'ON TREE_NODE.lft BETWEEN TREE_PARENT.lft AND TREE_PARENT.rgt' .
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-700- if ($args->{fields});
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:701: my @fields = map { "TREE_PARENT.`$_`" } @keys;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-702- my $table = $self->table;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:703: my $select = 'SELECT ' . join(', ', @fields) . " FROM `$table` AS TREE_NODE INNER JOIN `$table` AS TREE_PARENT " .
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-704- 'ON TREE_NODE.lft BETWEEN TREE_PARENT.lft AND TREE_PARENT.rgt' .
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:705: " WHERE TREE_NODE.id = $id ORDER BY TREE_PARENT.lft";
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-706- my $sth = $self->_run_sql($select);
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-736- if ($args->{fields});
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:737: my @fields = map { "T1.`$_`" } @keys;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-738- my $table = $self->table;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:739: my $select = 'SELECT ' . join(', ', @fields) . " FROM `$table` AS T1 INNER JOIN `$table` AS T2 " .
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-740- 'ON T1.lft = T2.rgt + 1' .
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:741: " WHERE T2.id = $id LIMIT 1";
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-742- my $sth = $self->_run_sql($select);
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-763- if ($args->{fields});
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:764: my @fields = map { "T1.`$_`" } @keys;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-765- my $table = $self->table;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:766: my $select = 'SELECT ' . join(', ', @fields) . " FROM `$table` AS T1 INNER JOIN `$table` AS T2 " .
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-767- 'ON T1.rgt = T2.lft - 1' .
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:768: " WHERE T2.id = $id LIMIT 1";
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-769- my $sth = $self->_run_sql($select);
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-797- }
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:798: my $where = $args->{where};
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-799- my @bind;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-806- if ($args->{fields});
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:807: my @fields = map { "T1.`$_`" } @keys;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-808- my $table = $self->table;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:809: my $select = 'SELECT ' . join(', ', @fields) . " FROM `$table` AS T1 INNER JOIN `$table` AS T2 " .
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-810- "ON T1.lft > T2.lft AND T2.id = $id $where ORDER BY T1.lft LIMIT 1";
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-829- }
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:830: my $where = $args->{where};
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-831- my @bind;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-838- if ($args->{fields});
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:839: my @fields = map { "T1.`$_`" } @keys;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-840- my $table = $self->table;
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm:841: my $select = 'SELECT ' . join(', ', @fields) . " FROM `$table` AS T1 INNER JOIN `$table` AS T2 " .
libdbix-oo-perl-0.0.9/lib/DBIx/OO/Tree.pm-842- "ON T1.lft < T2.lft AND T2.id = $id $where ORDER BY T1.lft DESC LIMIT 1";
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO.pm-911-
libdbix-oo-perl-0.0.9/lib/DBIx/OO.pm:912: SELECT group FROM Users_To_Group where user = '$user'
libdbix-oo-perl-0.0.9/lib/DBIx/OO.pm-913-
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO.pm-1417- my $class = shift;
libdbix-oo-perl-0.0.9/lib/DBIx/OO.pm:1418: my $where = ref $_[0] eq 'HASH' ? $_[0] : { @_ };
libdbix-oo-perl-0.0.9/lib/DBIx/OO.pm-1419- my $sql = 'SELECT COUNT(*) FROM ' . $class->table;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO.pm-1456- @set{@k} = @{$self->{values}}{@k};
libdbix-oo-perl-0.0.9/lib/DBIx/OO.pm:1457: my $where = $self->_get_pk_where;
libdbix-oo-perl-0.0.9/lib/DBIx/OO.pm-1458- my $sa = $self->get_sql_abstract;
##############################################
libdbix-oo-perl-0.0.9/lib/DBIx/OO.pm-1495- my $ek = $self->_get_columns($groups, $exclude || $self->{modified});
libdbix-oo-perl-0.0.9/lib/DBIx/OO.pm:1496: my $where = $self->_get_pk_where;
libdbix-oo-perl-0.0.9/lib/DBIx/OO.pm-1497- my $sa = $self->get_sql_abstract;
##############################################
libdbix-oo-perl-0.0.9/.pc/spelling.patch/lib/DBIx/OO.pm-911-
libdbix-oo-perl-0.0.9/.pc/spelling.patch/lib/DBIx/OO.pm:912: SELECT group FROM Users_To_Group where user = '$user'
libdbix-oo-perl-0.0.9/.pc/spelling.patch/lib/DBIx/OO.pm-913-
##############################################
libdbix-oo-perl-0.0.9/.pc/spelling.patch/lib/DBIx/OO.pm-1417- my $class = shift;
libdbix-oo-perl-0.0.9/.pc/spelling.patch/lib/DBIx/OO.pm:1418: my $where = ref $_[0] eq 'HASH' ? $_[0] : { @_ };
libdbix-oo-perl-0.0.9/.pc/spelling.patch/lib/DBIx/OO.pm-1419- my $sql = 'SELECT COUNT(*) FROM ' . $class->table;
##############################################
libdbix-oo-perl-0.0.9/.pc/spelling.patch/lib/DBIx/OO.pm-1456- @set{@k} = @{$self->{values}}{@k};
libdbix-oo-perl-0.0.9/.pc/spelling.patch/lib/DBIx/OO.pm:1457: my $where = $self->_get_pk_where;
libdbix-oo-perl-0.0.9/.pc/spelling.patch/lib/DBIx/OO.pm-1458- my $sa = $self->get_sql_abstract;
##############################################
libdbix-oo-perl-0.0.9/.pc/spelling.patch/lib/DBIx/OO.pm-1495- my $ek = $self->_get_columns($groups, $exclude || $self->{modified});
libdbix-oo-perl-0.0.9/.pc/spelling.patch/lib/DBIx/OO.pm:1496: my $where = $self->_get_pk_where;
libdbix-oo-perl-0.0.9/.pc/spelling.patch/lib/DBIx/OO.pm-1497- my $sa = $self->get_sql_abstract;
##############################################
libdbix-oo-perl-0.0.9/.pc/pod-error.patch/lib/DBIx/OO.pm-911-
libdbix-oo-perl-0.0.9/.pc/pod-error.patch/lib/DBIx/OO.pm:912: SELECT group FROM Users_To_Group where user = '$user'
libdbix-oo-perl-0.0.9/.pc/pod-error.patch/lib/DBIx/OO.pm-913-
##############################################
libdbix-oo-perl-0.0.9/.pc/pod-error.patch/lib/DBIx/OO.pm-1417- my $class = shift;
libdbix-oo-perl-0.0.9/.pc/pod-error.patch/lib/DBIx/OO.pm:1418: my $where = ref $_[0] eq 'HASH' ? $_[0] : { @_ };
libdbix-oo-perl-0.0.9/.pc/pod-error.patch/lib/DBIx/OO.pm-1419- my $sql = 'SELECT COUNT(*) FROM ' . $class->table;
##############################################
libdbix-oo-perl-0.0.9/.pc/pod-error.patch/lib/DBIx/OO.pm-1456- @set{@k} = @{$self->{values}}{@k};
libdbix-oo-perl-0.0.9/.pc/pod-error.patch/lib/DBIx/OO.pm:1457: my $where = $self->_get_pk_where;
libdbix-oo-perl-0.0.9/.pc/pod-error.patch/lib/DBIx/OO.pm-1458- my $sa = $self->get_sql_abstract;
##############################################
libdbix-oo-perl-0.0.9/.pc/pod-error.patch/lib/DBIx/OO.pm-1495- my $ek = $self->_get_columns($groups, $exclude || $self->{modified});
libdbix-oo-perl-0.0.9/.pc/pod-error.patch/lib/DBIx/OO.pm:1496: my $where = $self->_get_pk_where;
libdbix-oo-perl-0.0.9/.pc/pod-error.patch/lib/DBIx/OO.pm-1497- my $sa = $self->get_sql_abstract;