File Coverage

blib/lib/Dancer/Plugin/CORS/Sharing.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	4	6	66.6
condition	4	6	66.6
subroutine	7	7	100.0
pod	4	4	100.0
total	50	54	92.5

package Dancer::Plugin::CORS::Sharing;

use Modern::Perl;
use Carp;
use Scalar::Util qw(blessed);

=head1 NAME

Dancer::Plugin::CORS::Sharing - Helper class for I keyword

=head1 VERSION

Version 0.11

=cut

our $VERSION = '0.11';

=head1 DESCRIPTION

In order to use many rules with many routes, this helpers class helps you to organize yourself.

=head1 SYNOPSIS

    use Dancer::Plugin::CORS;

	sharing->rule(
		origin => ...,
		credentials => 1
	);

	$route = post '/' => sub { ... };

	sharing->add($route);

=head1 METHODS

=head2 new

A convient way is to use the implicit form of the module. This means you don't have to call new() self, just start with defining rules and add routes.

When you want more than one ruleset, obtain a new instance by calling new():

	my $sharing = sharing->new;
	$sharing->rule(...);
	$sharing->add(...);

=cut

sub new($%) {
	my $class = shift;
	my %options = (rules => []);
	if (blessed $class and $class->isa(__PACKAGE__)) {
		%options = (%$class, %options);
	}
	%options = (%options, @_);
	croak "sharing->new should be called inside a dancer app, not outside" unless exists $options{_add_rule};
	return bless \%options => ref $class || $class;
}

=head2 rule(%options)

This method defines a optionset. See L for a explaination of valid options.

=cut

sub rule($%) {
	my ($self, %options) = @_;
	push @{$self->{rules}} => \%options;
	$self;
}

=head2 add(@routes)

This method finally calls L for any route. @routes maybe a list of arrayrefs of L objects or paths.

Note: L returns a hash instead of a list. Use values() to obtain the route objects:

	sharing->add(values(resource(...)));

=cut

sub add {
	my ($self, @routes) = @_;
	foreach my $routes (@routes) {
		$routes = [ $routes ] unless ref $routes eq 'ARRAY';
		foreach my $route (@$routes) {
			foreach my $options (@{$self->{rules}}) {
				$self->{_add_rule}->($route, %$options);
			}
		}
	}
	$self;
}

=head2 clear

This method clears all previously defined rules.

=cut

sub clear {
	my $self = shift;
	$self->{rules} = [];
	$self;
}

=head1 AUTHOR

David Zurborg, C<<  >>

=head1 SEE ALSO

=over

=item L

=back

=head1 COPYRIGHT & LICENSE

Copyright 2014 David Zurborg, all rights reserved.

This program is released under the following license: open-source

=cut

1;