From: nperez Date: Mon, 1 Mar 2010 17:42:46 +0000 (-0600) Subject: whitespace clean up X-Git-Tag: 2.002001~17 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Controller-DBIC-API.git;a=commitdiff_plain;h=406086f3da2f020cf98b01d994ffe2d1b8a478c4 whitespace clean up --- diff --git a/lib/Catalyst/Controller/DBIC/API.pm b/lib/Catalyst/Controller/DBIC/API.pm index fbf3329..ea086b7 100644 --- a/lib/Catalyst/Controller/DBIC/API.pm +++ b/lib/Catalyst/Controller/DBIC/API.pm @@ -79,11 +79,11 @@ sub begin :Private This action is the chain root of the controller. It must either be overridden or configured to provide a base pathpart to the action and also a parent action. For example, for class MyAppDB::Track you might have package MyApp::Controller::API::RPC::Track; - use Moose; + use Moose; BEGIN { extends 'Catalyst::Controller::DBIC::API::RPC'; } __PACKAGE__->config - ( action => { setup => { PathPart => 'track', Chained => '/api/rpc/rpc_base' } }, + ( action => { setup => { PathPart => 'track', Chained => '/api/rpc/rpc_base' } }, ... ); @@ -127,7 +127,7 @@ sub deserialize :Chained('setup') :CaptureArgs(0) :PathPart('') :ActionClass('De { $req_params = $c->req->data; } - else + else { $req_params = CGI::Expand->expand_hash($c->req->params); @@ -147,7 +147,7 @@ sub deserialize :Chained('setup') :CaptureArgs(0) :PathPart('') :ActionClass('De $req_params->{$param}->{$key} = $deserialized; } catch - { + { $c->log->debug("Param '$param.$key' did not deserialize appropriately: $_") if $c->debug; } @@ -161,14 +161,14 @@ sub deserialize :Chained('setup') :CaptureArgs(0) :PathPart('') :ActionClass('De $req_params->{$param} = $deserialized; } catch - { + { $c->log->debug("Param '$param' did not deserialize appropriately: $_") if $c->debug; } } } } - + $self->inflate_request($c, $req_params); } @@ -185,7 +185,7 @@ sub generate_rs } =method_protected inflate_request - + inflate_request is called at the end of deserialize to populate key portions of the request with the useful bits =cut @@ -197,14 +197,14 @@ sub inflate_request try { # set static arguments - $c->req->_set_controller($self); + $c->req->_set_controller($self); # set request arguments $c->req->_set_request_data($params); # set the current resultset $c->req->_set_current_result_set($self->generate_rs($c)); - + } catch { @@ -257,12 +257,12 @@ This action is the chain root for object level actions (such as create, update, sub objects_no_id :Chained('deserialize') :CaptureArgs(0) :PathPart('') { my ($self, $c) = @_; - + if($c->req->has_request_data) { my $data = $c->req->request_data; my $vals; - + if(exists($data->{$self->data_root}) && defined($data->{$self->data_root})) { my $root = $data->{$self->data_root}; @@ -354,7 +354,7 @@ Note that if pagination is needed, this can be achieved using a combination of t ?page=2&count=20 Would result in this search: - + $rs->search({}, { page => 2, rows => 20 }) =cut @@ -368,7 +368,7 @@ sub list $self->list_format_output($c); # make sure there are no objects lingering - $c->req->clear_objects(); + $c->req->clear_objects(); } =method_protected list_munge_parameters @@ -388,14 +388,14 @@ list_perform_search executes the actual search. current_result_set is updated to sub list_perform_search { my ($self, $c) = @_; - - try + + try { my $req = $c->req; - + my $rs = $req->current_result_set->search ( - $req->search_parameters, + $req->search_parameters, $req->search_attributes ); @@ -424,17 +424,17 @@ sub list_format_output my $rs = $c->req->current_result_set->search; $rs->result_class('DBIx::Class::ResultClass::HashRefInflator'); - + try { my $output = {}; my $formatted = []; - + foreach my $row ($rs->all) { push(@$formatted, $self->row_format_output($c, $row)); } - + $output->{$self->data_root} = $formatted; if ($c->req->has_search_total_entries) @@ -495,7 +495,7 @@ update_or_create is responsible for iterating any stored objects and performing sub update_or_create { my ($self, $c) = @_; - + if($c->req->has_objects) { $self->validate_objects($c); @@ -518,7 +518,7 @@ transact_objects performs the actual commit to the database via $schema->txn_do. sub transact_objects { my ($self, $c, $coderef) = @_; - + try { $self->stored_result_source->schema->txn_do @@ -577,22 +577,22 @@ sub validate_object my %requires_map = map { $_ => 1 - } + } @{ - ($object->in_storage) - ? [] + ($object->in_storage) + ? [] : $c->stash->{create_requires} || $self->create_requires }; - + my %allows_map = map { (ref $_) ? %{$_} : ($_ => 1) - } + } ( - keys %requires_map, + keys %requires_map, @{ - ($object->in_storage) - ? ($c->stash->{update_allows} || $self->update_allows) + ($object->in_storage) + ? ($c->stash->{update_allows} || $self->update_allows) : ($c->stash->{create_allows} || $self->create_allows) } ); @@ -601,14 +601,14 @@ sub validate_object { # check value defined if key required my $allowed_fields = $allows_map{$key}; - + if (ref $allowed_fields) { my $related_source = $object->result_source->related_source($key); my $related_params = $params->{$key}; my %allowed_related_map = map { $_ => 1 } @$allowed_fields; my $allowed_related_cols = ($allowed_related_map{'*'}) ? [$related_source->columns] : $allowed_fields; - + foreach my $related_col (@{$allowed_related_cols}) { if (my $related_col_value = $related_params->{$related_col}) { @@ -616,7 +616,7 @@ sub validate_object } } } - else + else { my $value = $params->{$key}; @@ -632,7 +632,7 @@ sub validate_object } } } - + # check for multiple values if (ref($value) && !($value == JSON::Any::true || $value == JSON::Any::false)) { @@ -646,12 +646,12 @@ sub validate_object } } - unless (keys %values || !$object->in_storage) + unless (keys %values || !$object->in_storage) { die 'No valid keys passed'; } - return \%values; + return \%values; } =method_protected delete @@ -663,7 +663,7 @@ delete operates on the stored objects in the request. It first transacts the obj sub delete { my ($self, $c) = @_; - + if($c->req->has_objects) { $self->transact_objects($c, sub { $self->delete_objects($c, @_) }); @@ -709,7 +709,7 @@ sub save_object { $self->update_object_from_params($c, $object, $params); } - else + else { $self->insert_object_from_params($c, $object, $params); } @@ -734,7 +734,7 @@ sub update_object_from_params $self->update_object_relation($c, $object, delete $params->{$key}, $key); } } - + $object->update($params); } @@ -815,7 +815,7 @@ sub end :Private $c->stash->{response}->{success} = $self->use_json_boolean ? JSON::Any::true : 'true'; $default_status = 200; } - + unless ($default_status == 200) { delete $c->stash->{response}->{$self->data_root}; @@ -980,9 +980,9 @@ Columns and related columns that are okay to search on. For example if only the You can also use this to allow custom columns should you wish to allow them through in order to be caught by a custom resultset. For example: package RestTest::Controller::API::RPC::TrackExposed; - + ... - + __PACKAGE__->config ( ..., search_exposes => [qw/position title custom_column/], @@ -991,9 +991,9 @@ You can also use this to allow custom columns should you wish to allow them thro and then in your custom resultset: package RestTest::Schema::ResultSet::Track; - + use base 'RestTest::Schema::ResultSet'; - + sub search { my $self = shift; my ($clause, $params) = @_; @@ -1030,7 +1030,7 @@ For example if you wanted create to return the JSON for the newly created object # $c->req->all_objects will contain all of the created $self->next::method($c); - if ($c->req->has_objects) { + if ($c->req->has_objects) { # $c->stash->{response} will be serialized in the end action $c->stash->{response}->{$self->data_root} = [ map { { $_->get_inflated_columns } } ($c->req->all_objects) ] ; } @@ -1046,7 +1046,7 @@ It should be noted that the return_object attribute will produce the above resul Similarly you might want create, update and delete to all forward to the list action once they are done so you can refresh your view. This should also be simple enough. -If more extensive customization is required, it is recommened to peer into the roles that comprise the system and make use +If more extensive customization is required, it is recommened to peer into the roles that comprise the system and make use =head1 NOTES diff --git a/lib/Catalyst/Controller/DBIC/API/JoinBuilder.pm b/lib/Catalyst/Controller/DBIC/API/JoinBuilder.pm index 884aaea..cd7cc5d 100644 --- a/lib/Catalyst/Controller/DBIC/API/JoinBuilder.pm +++ b/lib/Catalyst/Controller/DBIC/API/JoinBuilder.pm @@ -82,7 +82,7 @@ _build_joins finds the top parent in the structure and then recursively iterates sub _build_joins { my ($self) = @_; - + my $parent; while(my $found = $self->parent) { diff --git a/lib/Catalyst/Controller/DBIC/API/REST.pm b/lib/Catalyst/Controller/DBIC/API/REST.pm index a66cb8d..04fe041 100644 --- a/lib/Catalyst/Controller/DBIC/API/REST.pm +++ b/lib/Catalyst/Controller/DBIC/API/REST.pm @@ -14,7 +14,7 @@ __PACKAGE__->config( =head1 DESCRIPTION -Provides a REST style API interface to the functionality described in L. +Provides a REST style API interface to the functionality described in L. By default provides the following endpoints: @@ -32,7 +32,7 @@ CaptureArgs: 0 As described in L, this action is the chain root of the controller but has no pathpart or chain parent defined by default, so these must be defined in order for the controller to function. The neatest way is normally to define these using the controller's config. __PACKAGE__->config - ( action => { setup => { PathPart => 'track', Chained => '/api/rest/rest_base' } }, + ( action => { setup => { PathPart => 'track', Chained => '/api/rest/rest_base' } }, ... ); diff --git a/lib/Catalyst/Controller/DBIC/API/RPC.pm b/lib/Catalyst/Controller/DBIC/API/RPC.pm index e9ff286..b3b17c3 100644 --- a/lib/Catalyst/Controller/DBIC/API/RPC.pm +++ b/lib/Catalyst/Controller/DBIC/API/RPC.pm @@ -5,7 +5,7 @@ use Moose; BEGIN { extends 'Catalyst::Controller::DBIC::API'; } __PACKAGE__->config( - 'action' => { object_with_id => { PathPart => 'id' } }, + 'action' => { object_with_id => { PathPart => 'id' } }, 'default' => 'application/json', 'stash_key' => 'response', 'map' => { @@ -16,7 +16,7 @@ __PACKAGE__->config( =head1 DESCRIPTION -Provides an RPC API interface to the functionality described in L. +Provides an RPC API interface to the functionality described in L. By default provides the following endpoints: @@ -37,7 +37,7 @@ CaptureArgs: 0 As described in L, this action is the chain root of the controller but has no pathpart or chain parent defined by default, so these must be defined in order for the controller to function. The neatest way is normally to define these using the controller's config. __PACKAGE__->config - ( action => { setup => { PathPart => 'track', Chained => '/api/rpc/rpc_base' } }, + ( action => { setup => { PathPart => 'track', Chained => '/api/rpc/rpc_base' } }, ... ); @@ -60,7 +60,7 @@ Provides an endpoint to the functionality described in Lupdate_or_create($c); @@ -76,7 +76,7 @@ Provides an endpoint to the functionality described in Lnext::method($c); @@ -92,7 +92,7 @@ Provides an endpoint to the functionality described in Lnext::method($c); @@ -108,7 +108,7 @@ Provides an endpoint to the functionality described in Lupdate_or_create($c); @@ -124,7 +124,7 @@ Provides an endpoint to the functionality described in Lnext::method($c); @@ -140,7 +140,7 @@ Provides an endpoint to the functionality described in Lupdate_or_create($c); @@ -156,7 +156,7 @@ Provides an endpoint to the functionality described in Lnext::method($c); diff --git a/lib/Catalyst/Controller/DBIC/API/Request.pm b/lib/Catalyst/Controller/DBIC/API/Request.pm index c025270..9bce110 100644 --- a/lib/Catalyst/Controller/DBIC/API/Request.pm +++ b/lib/Catalyst/Controller/DBIC/API/Request.pm @@ -32,7 +32,7 @@ has '_controller' => my ($self, $new) = @_; $self->_set_class($new->class) if defined($new->class); - $self->_set_application($new->_application); + $self->_set_application($new->_application); $self->_set_prefetch_allows($new->prefetch_allows); $self->_set_search_exposes($new->search_exposes); $self->_set_select_exposes($new->select_exposes); diff --git a/lib/Catalyst/Controller/DBIC/API/Request/Context.pm b/lib/Catalyst/Controller/DBIC/API/Request/Context.pm index 9f9ea72..bb84abd 100644 --- a/lib/Catalyst/Controller/DBIC/API/Request/Context.pm +++ b/lib/Catalyst/Controller/DBIC/API/Request/Context.pm @@ -25,7 +25,7 @@ has objects => isa => ArrayRef[ Tuple[ Object, Maybe[HashRef] ] ], traits => [ 'Array' ], default => sub { [] }, - handles => + handles => { all_objects => 'elements', add_object => 'push', diff --git a/lib/Catalyst/Controller/DBIC/API/RequestArguments.pm b/lib/Catalyst/Controller/DBIC/API/RequestArguments.pm index 7b961b4..adba96d 100644 --- a/lib/Catalyst/Controller/DBIC/API/RequestArguments.pm +++ b/lib/Catalyst/Controller/DBIC/API/RequestArguments.pm @@ -50,9 +50,9 @@ with 'MooseX::Role::BuildInstanceOf' => parameter static => ( isa => Bool, default => 0 ); role { - + my $p = shift; - + if($p->static) { requires qw/check_has_relation check_column_relation/; @@ -146,7 +146,7 @@ prefetch is passed to ->search to optimize the number of database fetches for jo ( is => 'ro', writer => '_set_prefetch', - isa => Prefetch, + isa => Prefetch, default => sub { $p->static ? [] : undef }, coerce => 1, trigger => sub @@ -191,7 +191,7 @@ Like the synopsis in DBIC::API shows, you can declare a "template" of what is al ( is => 'ro', writer => '_set_prefetch_allows', - isa => ArrayRef[ArrayRef|Str|HashRef], + isa => ArrayRef[ArrayRef|Str|HashRef], default => sub { [ ] }, predicate => 'has_prefetch_allows', trigger => sub @@ -269,7 +269,7 @@ Please see L for details on how the format work trigger => sub { my ($self, $new) = @_; - + if($self->has_search_exposes and @{$self->search_exposes}) { foreach my $foo (@$new) @@ -292,7 +292,7 @@ Please see L for details on how the format work } } } - + my ($search_parameters, $search_attributes) = $self->generate_parameters_attributes($new); $self->_set_search_parameters($search_parameters); $self->_set_search_attributes($search_attributes); @@ -384,7 +384,7 @@ Please see L for more details. default => sub { $p->static ? [] : undef }, coerce => 1, trigger => sub - { + { my ($self, $new) = @_; if($self->has_select_exposes) { @@ -491,7 +491,7 @@ format_search_parameters iterates through the provided params ArrayRef, calling method format_search_parameters => sub { my ($self, $params) = @_; - + my $genparams = []; foreach my $param (@$params) @@ -525,7 +525,7 @@ generate_column_parameters recursively generates properly aliased parameters for next; } - %$search_params = + %$search_params = %{ $self->generate_column_parameters ( @@ -568,7 +568,7 @@ This builder method generates the search attributes { my ($self, $args) = @_; my $static = $self->_controller; - my $search_attributes = + my $search_attributes = { group_by => $self->grouped_by || ((scalar(@{$static->grouped_by})) ? $static->grouped_by : undef), order_by => $self->ordered_by || ((scalar(@{$static->ordered_by})) ? $static->ordered_by : undef), @@ -589,15 +589,15 @@ This builder method generates the search attributes $search_attributes->{page} = $search_attributes->{offset} / $search_attributes->{rows} + 1; delete $search_attributes->{offset}; } - - $search_attributes = - { + + $search_attributes = + { map { @$_ } grep { - defined($_->[1]) - ? + defined($_->[1]) + ? (ref($_->[1]) && reftype($_->[1]) eq 'HASH' && keys %{$_->[1]}) || (ref($_->[1]) && reftype($_->[1]) eq 'ARRAY' && @{$_->[1]}) || length($_->[1]) @@ -612,7 +612,7 @@ This builder method generates the search attributes if ($search_attributes->{page} && !$search_attributes->{rows}) { die 'list_page can only be used with list_count'; } - + if ($search_attributes->{select}) { # make sure all columns have an alias to avoid ambiguous issues # but allow non strings (eg. hashrefs for db procs like 'count') @@ -621,7 +621,7 @@ This builder method generates the search attributes } return $search_attributes; - + }; }; diff --git a/lib/Catalyst/Controller/DBIC/API/StaticArguments.pm b/lib/Catalyst/Controller/DBIC/API/StaticArguments.pm index 7b972b3..71e8730 100644 --- a/lib/Catalyst/Controller/DBIC/API/StaticArguments.pm +++ b/lib/Catalyst/Controller/DBIC/API/StaticArguments.pm @@ -31,7 +31,7 @@ foreach my $var (qw/create_requires create_allows update_requires update_allows/ traits => ['Array'], default => sub { [] }, trigger => sub - { + { my ($self, $new) = @_; $self->check_column_relation($_, 1) for @$new; }, diff --git a/lib/Catalyst/Controller/DBIC/API/StoredResultSource.pm b/lib/Catalyst/Controller/DBIC/API/StoredResultSource.pm index 3fc3cf4..b2e1e43 100644 --- a/lib/Catalyst/Controller/DBIC/API/StoredResultSource.pm +++ b/lib/Catalyst/Controller/DBIC/API/StoredResultSource.pm @@ -44,7 +44,7 @@ has 'stored_model' => ); sub _build_stored_model -{ +{ return $_[0]->_application->model($_[0]->class); } @@ -75,7 +75,7 @@ check_has_relation meticulously delves into the result sources relationships to sub check_has_relation { my ($self, $rel, $other, $nest, $static) = @_; - + $nest ||= $self->stored_result_source; if(HashRef->check($other)) @@ -99,14 +99,14 @@ sub check_has_relation =method_public check_column_relation -Convenience method to first check if the provided argument is a valid relation (if it is a HashRef) or column. +Convenience method to first check if the provided argument is a valid relation (if it is a HashRef) or column. =cut sub check_column_relation { my ($self, $col_rel, $static) = @_; - + if(HashRef->check($col_rel)) { try diff --git a/lib/Catalyst/Controller/DBIC/API/Validator.pm b/lib/Catalyst/Controller/DBIC/API/Validator.pm index 7817644..1c9422f 100644 --- a/lib/Catalyst/Controller/DBIC/API/Validator.pm +++ b/lib/Catalyst/Controller/DBIC/API/Validator.pm @@ -85,7 +85,7 @@ around visit_hash => sub around visit_value => sub { my ($orig, $self, $val) = @_; - + if($self->value_type eq 'NONE') { $self->dive(); @@ -98,7 +98,7 @@ around visit_value => sub { $self->append_text($val); warn 'VALUE: ' . $self->current_template if DEBUG; - } + } else { $self->$orig($val); diff --git a/t/lib/DBICTest.pm b/t/lib/DBICTest.pm index 697a6f6..0784160 100644 --- a/t/lib/DBICTest.pm +++ b/t/lib/DBICTest.pm @@ -1,4 +1,4 @@ -package # hide from PAUSE +package # hide from PAUSE DBICTest; use strict; @@ -14,12 +14,12 @@ DBICTest - Library to be used by DBIx::Class test scripts. use lib qw(t/lib); use DBICTest; use Test::More; - + my $schema = DBICTest->init_schema(); =head1 DESCRIPTION -This module provides the basic utilities to write tests against +This module provides the basic utilities to write tests against DBIx::Class. =head1 METHODS @@ -31,13 +31,13 @@ DBIx::Class. no_populate=>1, ); -This method removes the test SQLite database in t/var/DBIxClass.db +This method removes the test SQLite database in t/var/DBIxClass.db and then creates a new, empty database. -This method will call deploy_schema() by default, unless the +This method will call deploy_schema() by default, unless the no_deploy flag is set. -Also, by default, this method will call populate_schema() by +Also, by default, this method will call populate_schema() by default, unless the no_deploy or no_populate flags are set. =cut @@ -101,7 +101,7 @@ sub deploy_schema { close IN; ($schema->storage->dbh->do($_) || print "Error on SQL: $_\n") for split(/;\n/, $sql); } - + =head2 clear_schema @@ -123,7 +123,7 @@ sub clear_schema { DBICTest->populate_schema( $schema ); -After you deploy your schema you can use this method to populate +After you deploy your schema you can use this method to populate the tables with test data. =cut diff --git a/t/lib/RestTest.pm b/t/lib/RestTest.pm index 59ebdf9..a2550b8 100644 --- a/t/lib/RestTest.pm +++ b/t/lib/RestTest.pm @@ -10,14 +10,14 @@ use Catalyst::Runtime '5.70'; # -Debug: activates the debug mode for very useful log messages # ConfigLoader: will load the configuration from a YAML file in the # application's home directory -# Static::Simple: will serve static files from the application's root +# Static::Simple: will serve static files from the application's root # directory use Catalyst; our $VERSION = '0.01'; -# Configure the application. +# Configure the application. # # Note that settings in RestTest.yml (or other external # configuration file that you set up manually) take precedence diff --git a/t/lib/RestTest/Controller/API/REST.pm b/t/lib/RestTest/Controller/API/REST.pm index 58f75c8..cb27229 100644 --- a/t/lib/RestTest/Controller/API/REST.pm +++ b/t/lib/RestTest/Controller/API/REST.pm @@ -11,7 +11,7 @@ sub rest_base : Chained('/api/api_base') PathPart('rest') CaptureArgs(0) { sub end :Private { my ( $self, $c ) = @_; - + } 1; diff --git a/t/lib/RestTest/Controller/API/RPC.pm b/t/lib/RestTest/Controller/API/RPC.pm index 10ea3e8..38906aa 100644 --- a/t/lib/RestTest/Controller/API/RPC.pm +++ b/t/lib/RestTest/Controller/API/RPC.pm @@ -11,7 +11,7 @@ sub rpc_base : Chained('/api/api_base') PathPart('rpc') CaptureArgs(0) { sub end :Private { my ( $self, $c ) = @_; - + } 1; diff --git a/t/lib/RestTest/Controller/Root.pm b/t/lib/RestTest/Controller/Root.pm index 6dbb124..b8438f4 100644 --- a/t/lib/RestTest/Controller/Root.pm +++ b/t/lib/RestTest/Controller/Root.pm @@ -37,7 +37,7 @@ sub default : Private { Attempt to render a view, if needed. -=cut +=cut sub end : Private {} diff --git a/t/lib/RestTest/Model/RestTestDB.pm b/t/lib/RestTest/Model/RestTestDB.pm index 4e1fb5b..329fe46 100644 --- a/t/lib/RestTest/Model/RestTestDB.pm +++ b/t/lib/RestTest/Model/RestTestDB.pm @@ -13,7 +13,7 @@ __PACKAGE__->config( "", "", {AutoCommit => 1} - ] + ] ); 1; diff --git a/t/lib/RestTest/Schema/Result/Artist.pm b/t/lib/RestTest/Schema/Result/Artist.pm index 912b378..a6916c5 100644 --- a/t/lib/RestTest/Schema/Result/Artist.pm +++ b/t/lib/RestTest/Schema/Result/Artist.pm @@ -1,4 +1,4 @@ -package # hide from PAUSE +package # hide from PAUSE RestTest::Schema::Result::Artist; use base 'DBIx::Class'; diff --git a/t/lib/RestTest/Schema/Result/CD.pm b/t/lib/RestTest/Schema/Result/CD.pm index 3377178..e166a3a 100644 --- a/t/lib/RestTest/Schema/Result/CD.pm +++ b/t/lib/RestTest/Schema/Result/CD.pm @@ -1,4 +1,4 @@ -package # hide from PAUSE +package # hide from PAUSE RestTest::Schema::Result::CD; use base 'DBIx::Class::Core'; diff --git a/t/lib/RestTest/Schema/Result/CD_to_Producer.pm b/t/lib/RestTest/Schema/Result/CD_to_Producer.pm index 07b6ee8..dce116e 100644 --- a/t/lib/RestTest/Schema/Result/CD_to_Producer.pm +++ b/t/lib/RestTest/Schema/Result/CD_to_Producer.pm @@ -1,4 +1,4 @@ -package # hide from PAUSE +package # hide from PAUSE RestTest::Schema::Result::CD_to_Producer; use base 'DBIx::Class::Core'; diff --git a/t/lib/RestTest/Schema/Result/Producer.pm b/t/lib/RestTest/Schema/Result/Producer.pm index c80937f..5730791 100644 --- a/t/lib/RestTest/Schema/Result/Producer.pm +++ b/t/lib/RestTest/Schema/Result/Producer.pm @@ -1,4 +1,4 @@ -package # hide from PAUSE +package # hide from PAUSE RestTest::Schema::Result::Producer; use base 'DBIx::Class::Core'; diff --git a/t/lib/RestTest/Schema/Result/Tag.pm b/t/lib/RestTest/Schema/Result/Tag.pm index 4ab5df9..df3e8c1 100644 --- a/t/lib/RestTest/Schema/Result/Tag.pm +++ b/t/lib/RestTest/Schema/Result/Tag.pm @@ -1,4 +1,4 @@ -package # hide from PAUSE +package # hide from PAUSE RestTest::Schema::Result::Tag; use base qw/DBIx::Class::Core/; diff --git a/t/lib/RestTest/Schema/Result/Track.pm b/t/lib/RestTest/Schema/Result/Track.pm index 8ce5d4f..9adcdbe 100644 --- a/t/lib/RestTest/Schema/Result/Track.pm +++ b/t/lib/RestTest/Schema/Result/Track.pm @@ -1,4 +1,4 @@ -package # hide from PAUSE +package # hide from PAUSE RestTest::Schema::Result::Track; use base 'DBIx::Class::Core'; diff --git a/t/lib/RestTest/Schema/ResultSet.pm b/t/lib/RestTest/Schema/ResultSet.pm index 4cf9ddb..451d08f 100644 --- a/t/lib/RestTest/Schema/ResultSet.pm +++ b/t/lib/RestTest/Schema/ResultSet.pm @@ -1,4 +1,4 @@ -package # hide from PAUSE +package # hide from PAUSE RestTest::Schema::ResultSet; use base 'DBIx::Class::ResultSet'; diff --git a/t/lib/RestTest/Schema/ResultSet/Track.pm b/t/lib/RestTest/Schema/ResultSet/Track.pm index c8d24c6..0a192d4 100644 --- a/t/lib/RestTest/Schema/ResultSet/Track.pm +++ b/t/lib/RestTest/Schema/ResultSet/Track.pm @@ -1,4 +1,4 @@ -package # hide from PAUSE +package # hide from PAUSE RestTest::Schema::ResultSet::Track; use base 'RestTest::Schema::ResultSet'; @@ -13,7 +13,7 @@ sub search { $clause->[0]->{'cd.year'} = $pretend; } } - my $rs = $self->SUPER::search(@_); + my $rs = $self->SUPER::search(@_); } 1;