Skip to content

Commit

Permalink
cleanup
Browse files Browse the repository at this point in the history
  • Loading branch information
Jan committed Feb 9, 2013
1 parent 04b25b8 commit 8d126ed
Show file tree
Hide file tree
Showing 4 changed files with 28 additions and 1 deletion.
10 changes: 10 additions & 0 deletions MANIFEST
@@ -1,6 +1,16 @@
ChangeLog
lib/Rex/Apache/Build.pm
lib/Rex/Apache/Build/Base.pm
lib/Rex/Apache/Build/deb.pm
lib/Rex/Apache/Build/rpm.pm
lib/Rex/Apache/Build/tgz.pm
lib/Rex/Apache/Deploy.pm
lib/Rex/Apache/Deploy/Git.pm
lib/Rex/Apache/Deploy/Package.pm
lib/Rex/Apache/Deploy/Package/Base.pm
lib/Rex/Apache/Deploy/Package/deb.pm
lib/Rex/Apache/Deploy/Package/rpm.pm
lib/Rex/Apache/Deploy/Package/tgz.pm
lib/Rex/Apache/Deploy/Symlink.pm
lib/Rex/Apache/Deploy/Tomcat.pm
lib/Rex/Apache/Inject.pm
Expand Down
2 changes: 2 additions & 0 deletions lib/Rex/Apache/Deploy.pm
Expand Up @@ -150,6 +150,8 @@ sub import {
my ($call_class) = caller;
return unless $call_class;

return unless $_[1];

die("Invalid input format") unless($_[1] =~ m/^[a-z0-9_]+$/i);

no strict 'refs';
Expand Down
2 changes: 2 additions & 0 deletions lib/Rex/Apache/Inject.pm
Expand Up @@ -162,6 +162,8 @@ sub import {

my ($call_class) = caller;

return unless $_[1];

die("Invalid input format") unless($_[1] =~ m/^[a-z0-9_]+$/i);

eval "use $_[0]::$_[1] '$call_class';";
Expand Down
15 changes: 14 additions & 1 deletion t/01.t
@@ -1,9 +1,22 @@
use strict;
use warnings;

use Test::More tests => 1;
use Test::More tests => 11;

use_ok 'Rex::Apache::Build';
use_ok 'Rex::Apache::Deploy';
use_ok 'Rex::Apache::Inject';

use_ok 'Rex::Apache::Build::Base';
use_ok 'Rex::Apache::Build::deb';
use_ok 'Rex::Apache::Build::rpm';
use_ok 'Rex::Apache::Build::tgz';

use_ok 'Rex::Apache::Deploy::Package::Base';
use_ok 'Rex::Apache::Deploy::Package::deb';
use_ok 'Rex::Apache::Deploy::Package::rpm';
use_ok 'Rex::Apache::Deploy::Package::tgz';


1;

0 comments on commit 8d126ed

Please sign in to comment.