diff options
author | Florent Villard <warly@mandriva.com> | 2006-10-16 16:05:39 +0000 |
---|---|---|
committer | Florent Villard <warly@mandriva.com> | 2006-10-16 16:05:39 +0000 |
commit | 1bcb7cc6b3b53e0c9ea1ac57fbe70adce4c50eab (patch) | |
tree | b8e2622d4b6d325d33bbe366fc9efacd94caadf4 /lib/Youri/Submit/Check.pm | |
parent | d1a5df25f929c643b035fa4b62fa86a521b4d6ef (diff) | |
download | mga-youri-submit-1bcb7cc6b3b53e0c9ea1ac57fbe70adce4c50eab.tar mga-youri-submit-1bcb7cc6b3b53e0c9ea1ac57fbe70adce4c50eab.tar.gz mga-youri-submit-1bcb7cc6b3b53e0c9ea1ac57fbe70adce4c50eab.tar.bz2 mga-youri-submit-1bcb7cc6b3b53e0c9ea1ac57fbe70adce4c50eab.tar.xz mga-youri-submit-1bcb7cc6b3b53e0c9ea1ac57fbe70adce4c50eab.zip |
merging dev with upstream
Diffstat (limited to 'lib/Youri/Submit/Check.pm')
-rw-r--r-- | lib/Youri/Submit/Check.pm | 86 |
1 files changed, 3 insertions, 83 deletions
diff --git a/lib/Youri/Submit/Check.pm b/lib/Youri/Submit/Check.pm index 312c4a6..cfa8f04 100644 --- a/lib/Youri/Submit/Check.pm +++ b/lib/Youri/Submit/Check.pm @@ -1,9 +1,9 @@ # $Id: Base.pm 631 2006-01-26 22:22:23Z guillomovitch $ -package Youri::Upload::Check; +package Youri::Submit::Check; =head1 NAME -Youri::Upload::Check - Abstract check plugin +Youri::Submit::Check - Abstract check plugin =head1 DESCRIPTION @@ -14,87 +14,7 @@ This abstract class defines check plugin interface. use warnings; use strict; use Carp; - -=head1 CLASS METHODS - -=head2 new(%args) - -Creates and returns a new Youri::Upload::Check object. - -No generic parameters (subclasses may define additional ones). - -Warning: do not call directly, call subclass constructor instead. - -=cut - -sub new { - my $class = shift; - croak "Abstract class" if $class eq __PACKAGE__; - - my %options = ( - id => '', # object id - test => 0, # test mode - verbose => 0, # verbose mode - @_ - ); - - - my $self = bless { - _id => $options{id}, - _test => $options{test}, - _verbose => $options{verbose}, - }, $class; - - $self->_init(%options); - - return $self; -} - -sub _init { - # do nothing -} - -=head1 INSTANCE METHODS - -=head2 get_id() - -Returns plugin identity. - -=cut - -sub get_id { - my ($self) = @_; - croak "Not a class method" unless ref $self; - - return $self->{_id}; -} - -=head2 run($package, $repository, $target, $define) - -Check given L<Youri::Package> object, and returns success as a boolean. - -=head2 get_error() - -Returns exact error message if check failed. - -=cut - -sub get_error { - my ($self) = @_; - croak "Not a class method" unless ref $self; - - return $self->{_error}; -} - -=head1 SUBCLASSING - -The following methods have to be implemented: - -=over - -=item run - -=back +use base qw/Youri::Submit::Plugin/; =head1 COPYRIGHT AND LICENSE |