aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Youri/Submit/Check.pm
diff options
context:
space:
mode:
authorFlorent Villard <warly@mandriva.com>2006-10-16 11:30:28 +0000
committerFlorent Villard <warly@mandriva.com>2006-10-16 11:30:28 +0000
commit02381cd87e37dc5d6df37e56eef5f1e222a794cd (patch)
treefec5b8db1aba238ca91f5506239dec3ac37d3929 /lib/Youri/Submit/Check.pm
parent597e5f1d49cb0cc96a5655aeaa84a6fc4a83b041 (diff)
downloadmga-youri-submit-02381cd87e37dc5d6df37e56eef5f1e222a794cd.tar
mga-youri-submit-02381cd87e37dc5d6df37e56eef5f1e222a794cd.tar.gz
mga-youri-submit-02381cd87e37dc5d6df37e56eef5f1e222a794cd.tar.bz2
mga-youri-submit-02381cd87e37dc5d6df37e56eef5f1e222a794cd.tar.xz
mga-youri-submit-02381cd87e37dc5d6df37e56eef5f1e222a794cd.zip
add new youri subsections (from upstream)
Diffstat (limited to 'lib/Youri/Submit/Check.pm')
-rw-r--r--lib/Youri/Submit/Check.pm107
1 files changed, 107 insertions, 0 deletions
diff --git a/lib/Youri/Submit/Check.pm b/lib/Youri/Submit/Check.pm
new file mode 100644
index 0000000..312c4a6
--- /dev/null
+++ b/lib/Youri/Submit/Check.pm
@@ -0,0 +1,107 @@
+# $Id: Base.pm 631 2006-01-26 22:22:23Z guillomovitch $
+package Youri::Upload::Check;
+
+=head1 NAME
+
+Youri::Upload::Check - Abstract check plugin
+
+=head1 DESCRIPTION
+
+This abstract class defines check plugin interface.
+
+=cut
+
+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
+
+=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;