Skip to content
Browse files

use Role::Tiny

  • Loading branch information...
1 parent 5f672fc commit 1aa9530f96d5fc5565dd1fa65a22bbbbaa53ce20 Ryo Anazawa committed Feb 26, 2013
Showing with 5 additions and 3 deletions.
  1. +1 −0 Makefile.PL
  2. +2 −2 lib/CGI/Header/PSGI.pm
  3. +2 −1 t/40_psgi_header.t
View
1 Makefile.PL
@@ -8,6 +8,7 @@ requires 'Carp' => '1.10';
requires 'CGI::Util' => '1.5';
requires 'List::Util' => '1.19';
requires 'Exporter';
+requires 'Role::Tiny';
test_requires 'Test::Exception' => '0.31';
test_requires 'Test::More' => '0.98';
View
4 lib/CGI/Header/PSGI.pm
@@ -3,9 +3,9 @@ use strict;
use warnings;
use CGI::Header;
use Carp qw/croak/;
-use Exporter 'import';
+use Role::Tiny;
-our @EXPORT_OK = qw( psgi_header psgi_redirect );
+requires qw( crlf cache charset self_url );
sub psgi_header {
my $self = shift;
View
3 t/40_psgi_header.t
@@ -12,7 +12,8 @@ use Test::More 'no_plan';
package CGI::PSGI::Extended;
use base 'CGI::PSGI';
-use CGI::Header::PSGI qw( psgi_header psgi_redirect );
+use Role::Tiny::With;
+with 'CGI::Header::PSGI';
sub crlf { $CGI::CRLF }

0 comments on commit 1aa9530

Please sign in to comment.
Something went wrong with that request. Please try again.