File Coverage

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

Criterion	Covered	Total	%
statement	34	34	100.0
branch	4	6	66.6
condition	4	6	66.6
subroutine	8	8	100.0
pod	4	4	100.0
total	54	58	93.1

use strict;
use warnings;
package Dancer::Plugin::CORS::Sharing;
# ABSTRACT: Helper class for I method

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

our $VERSION = '0.13'; # VERSION


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;
}


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


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;
}


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

__END__