DBIx::Class::Helper::ResultSet::ResultClassDWIM - result_class => '::HRI' == WIN

DBIx-Class-Helpers documentation Contained in the DBIx-Class-Helpers distribution.

Index

Code Index:

NAME

Top

DBIx::Class::Helper::ResultSet::ResultClassDWIM - result_class => '::HRI' == WIN

VERSION

Top

version 2.007000

SYNOPSIS

Top

 package MyApp::Schema::ResultSet::Foo;

 __PACKAGE__->load_components(qw{Helper::ResultSet::ResultClassDWIM});

 ...

 1;

And then elsewhere:

 my $data = $schema->resultset('Foo')->search({
      name => 'frew'
   }, {
      result_class => '::HRI'
   })->all;

DESCRIPTION

Top

This component allows you to prefix your result_class with :: to indicate that it should use the default namespace, namely, DBIx::Class::ResultClass::.

::HRI has been hardcoded to work. Of course ::HashRefInflator would also work fine.

See NOTE in DBIx::Class::Helper::ResultSet for a nice way to apply it to your entire schema.

AUTHOR

Top

Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>

COPYRIGHT AND LICENSE

Top

This software is copyright (c) 2011 by Arthur Axel "fREW" Schmidt.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

DBIx-Class-Helpers documentation Contained in the DBIx-Class-Helpers distribution. 
package DBIx::Class::Helper::ResultSet::ResultClassDWIM;
BEGIN {
  $DBIx::Class::Helper::ResultSet::ResultClassDWIM::VERSION = '2.007000';
}

# ABSTRACT: result_class => '::HRI' == WIN

use strict;
use warnings;

sub result_class {
   my ($self, $result_class) = @_;

   return $self->next::method unless defined $result_class;

   if (!ref $result_class) {
      if ($result_class eq '::HRI') {
         $result_class = 'DBIx::Class::ResultClass::HashRefInflator'
      } else {
         $result_class =~ s/^::/DBIx::Class::ResultClass::/;
      }
   }

   $self->next::method($result_class);
}

1;


__END__