X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FTable.pm;fp=lib%2FDBIx%2FClass%2FTable.pm;h=cc7a20deffc777913669e73c02407961e49edfd2;hb=130c64391b48bae9eb374e931c7d6c308625bf6b;hp=2fa6f06b0492fb59b753ec404be32660e37e1cfe;hpb=df8abd99a70d8d8af5046da841557e1a394b752b;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Table.pm b/lib/DBIx/Class/Table.pm index 2fa6f06..cc7a20d 100644 --- a/lib/DBIx/Class/Table.pm +++ b/lib/DBIx/Class/Table.pm @@ -31,8 +31,6 @@ L objects. =head1 METHODS -=over 4 - =cut sub _register_columns { @@ -47,7 +45,7 @@ sub _mk_column_accessors { $class->mk_group_accessors('column' => @cols); } -=item add_columns +=head2 add_columns __PACKAGE__->add_columns(qw/col1 col2 col3/); @@ -61,7 +59,7 @@ sub add_columns { $class->_mk_column_accessors(@cols); } -=item search_literal +=head2 search_literal my @obj = $class->search_literal($literal_where_cond, @bind); my $cursor = $class->search_literal($literal_where_cond, @bind); @@ -76,7 +74,7 @@ sub search_literal { return $class->search(\$cond, $attrs); } -=item count_literal +=head2 count_literal my $count = $class->count_literal($literal_where_cond); @@ -87,7 +85,7 @@ sub count_literal { return $class->search_literal(@_)->count; } -=item count +=head2 count my $count = $class->count({ foo => 3 }); @@ -98,7 +96,7 @@ sub count { return $class->search(@_)->count; } -=item search +=head2 search my @obj = $class->search({ foo => 3 }); # "... WHERE foo = 3" my $cursor = $class->search({ foo => 3 }); @@ -137,7 +135,7 @@ sub resultset { my $rs = $rs_class->new($class, @_); } -=item search_like +=head2 search_like Identical to search except defaults to 'LIKE' instead of '=' in condition @@ -158,7 +156,7 @@ sub _select_columns { return keys %{$_[0]->_columns}; } -=item table +=head2 table __PACKAGE__->table('tbl_name'); @@ -168,7 +166,7 @@ sub table { shift->_table_name(@_); } -=item find_or_create +=head2 find_or_create $class->find_or_create({ key => $val, ... }); @@ -184,7 +182,7 @@ sub find_or_create { return defined($exists) ? $exists : $class->create($hash); } -=item has_column +=head2 has_column if ($obj->has_column($col)) { ... } @@ -197,7 +195,7 @@ sub has_column { return exists $self->_columns->{$column}; } -=item column_info +=head2 column_info my $info = $obj->column_info($col); @@ -211,7 +209,7 @@ sub column_info { return $self->_columns->{$column}; } -=item columns +=head2 columns my @column_names = $obj->columns; @@ -224,8 +222,6 @@ sub columns { 1; -=back - =head1 AUTHORS Matt S. Trout