The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Interchange6::Schema::ResultSet::UriRedirect

SYNOPSIS

Provides extra accessor methods for Interchange6::Schema::Result::UriRedirect

METHODS

redirect( $source_uri )

Find "uri_source" in Interchange6::Schema::Result::UriRedirect and check for circular redirects. In the event that a non-circular chain of redirects is found the last item found is returned.

Returns depend on what is found:

$source_uri is not found

Returns undef.

Circular redirect found

Returns undef.

Normal redirect found

Returns the corresponding "uri_target" in Interchange6::Schema::Result::UriRedirect and "status_code" in Interchange6::Schema::Result::UriRedirect as an array in list context or as an array reference in scalar context.