diff options
Diffstat (limited to 'lib/Youri/Submit/Check/Type.pm')
-rw-r--r-- | lib/Youri/Submit/Check/Type.pm | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/lib/Youri/Submit/Check/Type.pm b/lib/Youri/Submit/Check/Type.pm deleted file mode 100644 index 2c0be9b..0000000 --- a/lib/Youri/Submit/Check/Type.pm +++ /dev/null @@ -1,54 +0,0 @@ -# $Id$ -package Youri::Submit::Check::Type; - -=head1 NAME - -Youri::Submit::Check::Type - Type check - -=head1 DESCRIPTION - -This check plugin rejects packages with incorrect type. - -=cut - -use warnings; -use strict; -use Carp; -use base qw/Youri::Submit::Check/; - -sub _init { - my $self = shift; - my %options = ( - type => undef, # expected type - @_ - ); - - croak "no type to check" unless $options{type}; - croak "invalid type value" unless $options{type} =~ /^(?:source|binary)$/; - - $self->{_type} = $options{type}; -} - -sub run { - my ($self, $package, $repository, $target, $define) = @_; - croak "Not a class method" unless ref $self; - - my @errors; - - my $type = $package->get_type(); - if ($type ne $self->{_type}) { - push(@errors, "invalid type $type"); - } - - return @errors; -} - -=head1 COPYRIGHT AND LICENSE - -Copyright (C) 2002-2006, YOURI project - -This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. - -=cut - -1; |