view release on metacpan or  search on metacpan

lib/Bio/CIPRES/Job.pm  view on Meta::CPAN

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
use 5.012;
use strict;
use warnings;
 
use overload
    '""' => sub {return $_[0]->{handle}};
 
use Carp;
use Time::Piece;
use XML::LibXML;
use Scalar::Util qw/blessed weaken/;
use List::Util qw/first/;
 
use Bio::CIPRES::Error;
use Bio::CIPRES::Message;
use Bio::CIPRES::Output;
 
 
sub new {
 
    my ($class, %args) = @_;
 
    my $self = bless {}, $class;
 
    croak "Must define user agent" if (! defined $args{agent});
    croak "Agent must be an LWP::UserAgent object"
        if ( blessed($args{agent}) ne 'LWP::UserAgent' );
    $self->{agent} = $args{agent};
    weaken( $self->{agent} );
 
    croak "Must define initial status" if (! defined $args{dom});
    $self->_parse_status( $args{dom} );
 
    return $self;
 
}
 
sub delete {

lib/Bio/CIPRES/Output.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
package Bio::CIPRES::Output;
 
use 5.012;
use strict;
use warnings;
 
use Carp;
use XML::LibXML;
use Scalar::Util qw/blessed weaken/;
 
use Bio::CIPRES::Error;
 
sub new {
 
    my ($class, %args) = @_;
 
    my $self = bless {}, $class;
 
    croak "Must define user agent" if (! defined $args{agent});
    croak "Agent must be an LWP::UserAgent object"
        if ( blessed($args{agent}) ne 'LWP::UserAgent' );
    $self->{agent} = $args{agent};
    weaken( $self->{agent} );
 
    croak "Must define initial status" if (! defined $args{dom});
    $self->_parse_dom( $args{dom} );
 
    return $self;
 
 
}
 
sub size  { return $_[0]->{length}       };