package CW::Router;

use Moo;
use Router::Simple;
use Carp ();

use CW::Route;

has _router => (
    is      => 'ro',
    default => sub { Router::Simple->new },
    handles => [qw(match)]
);

{
    ## no critic [TestingAndDebugging::ProhibitNoStrict]
    no strict 'refs';
    for (qw(get post put patch delete)) {
        *{ __PACKAGE__ . '::' . $_ } = sub {
            my ( $self, $path ) = @_;

            Carp::croak("Invalid path for route!") unless $path;

            my $route = CW::Route->new( path => $path );
            $self->_router->connect( $path, { route => $route } );
            return $route;
        }
    }
}

1;