view release on metacpan or  search on metacpan

lib/InfoSys/FreeDB/Connection.pm  view on Meta::CPAN

828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
        210 => $FINAL_DOT_RX,
    } );
 
    # Parse the result and return it
    require InfoSys::FreeDB::Response::Stat;
    return( InfoSys::FreeDB::Response::Stat->new_from_content_ref(
        $content_ref
    ) );
}
 
sub update {
    throw Error::Simple("ERROR: InfoSys::FreeDB::Connection::update, call this method in a subclass that has implemented it.");
}
 
sub ver {
    my $self = shift;
 
    # Send command and wait for reply
    my $cmd = 'ver';
    my $content_ref = $self->_wait_command_reply($cmd, {
        200 => $FINAL_EOL_RX,

lib/InfoSys/FreeDB/Connection/CDDBP.pm  view on Meta::CPAN

693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
    my $self = shift;
    my $val = shift;
 
    # Check if isa/ref/rx/value is allowed
    &_value_is_allowed( 'sign_on_response', $val ) || throw Error::Simple("ERROR: InfoSys::FreeDB::Connection::CDDBP::set_sign_on_response, the specified value '$val' is not allowed.");
 
    # Assignment
    $self->{InfoSys_FreeDB_Connection_CDDBP}{sign_on_response} = $val;
}
 
sub update {
    throw Error::Simple("ERROR: InfoSys::FreeDB::Connection::CDDBP::update, THIS METHOD IS NOT YET IMPLEMENTED.");
}
 
sub write {
    my $self = shift;
    my $entry = shift;
    my $cat = shift;
 
    # Throw exception if no cat
    ( $cat ) ||

lib/InfoSys/FreeDB/Connection/HTTP.pm  view on Meta::CPAN

520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
    my $self = shift;
    my $val = shift;
 
    # Check if isa/ref/rx/value is allowed
    &_value_is_allowed( 'freedb_cgi', $val ) || throw Error::Simple("ERROR: InfoSys::FreeDB::Connection::HTTP::set_freedb_cgi, the specified value '$val' is not allowed.");
 
    # Assignment
    $self->{InfoSys_FreeDB_Connection_HTTP}{freedb_cgi} = $val;
}
 
sub update {
    throw Error::Simple ("ERROR: InfoSys::FreeDB::Connection::HTTP::update, THIS METHOD IS NOT YET IMPLEMENTED.");
}
 
sub write {
    throw Error::Simple ("ERROR: InfoSys::FreeDB::Connection::HTTP::write, this method is not supported over 'HTTP'.");
}