view release on metacpan or  search on metacpan

lib/Biblio/ILL/ISO/ISOTime.pm  view on Meta::CPAN

package Biblio::ILL::ISO::ISOTime;

=head1 NAME

Biblio::ILL::ISO::ISOTime

=cut

use Biblio::ILL::ISO::ILLASNtype;
use Biblio::ILL::ISO::ILLString;

use Carp;

=head1 VERSION

Version 0.01

=cut

our $VERSION = '0.01';
#---------------------------------------------------------------------------
# Mods
# 0.01 - 2003.07.15 - original version
#---------------------------------------------------------------------------

=head1 DESCRIPTION

Biblio::ILL::ISO::ISOTime is a derivation of Biblio::ILL::ISO::ILLASNtype.

=head1 USES

 Biblio::ILL::ISO::ILLString

=head1 USED IN

 Biblio::ILL::ISO::DateTime
 Biblio::ILL::ISO::ElectronicDeliveryService

=cut

BEGIN{@ISA = qw ( Biblio::ILL::ISO::ILLString 
		  Biblio::ILL::ISO::ILLASNtype );}   # inherit from ILLASNtype

=head1 FROM THE ASN DEFINITION
 
 ISO-Time ::= VisibleString
	-- conforms to ISO 8601
	-- length = 6, 
	-- fixed
	-- HHMMSS
	-- local time of person or institution invoking service

=cut

#
# NOTE that an ISO-Time _is_not_ an ILL-String!
# ...but I've already got ILLString built, so we'll just
# inherit and tweak...
#

=head1 METHODS

=cut

#---------------------------------------------------------------
#
#---------------------------------------------------------------
=head1

=head2 new( $timestring )

Creates a new ISODate object. 
 Expects a properly formatted time string (HHMMSS).

=cut
sub new {
    my $class = shift;
    my $self = {};

    bless($self, ref($class) || $class);
    if (@_) {
	my $s = shift;
    
	# could use more error checking
	croak "Invalid ISOTime length: [$s]" if ((length $s) > 6);
	croak "Invalid ISOTime: [$s]" if ($s =~ /\D/);
	$self->SUPER::set($s);  #invoke parent (ie ILLString) 'set'
    }

    return ($self);
}


#---------------------------------------------------------------
#
#---------------------------------------------------------------
=head1

=head2 new( $timestring )

Sets the object's value.
 Expects a properly formatted time string (HHMMSS).

=cut
sub set {
    my $self = shift;
    my $s = shift;
    
    # could use more error checking
    croak "Invalid ISOTime length: [$s]" if ((length $s) > 6);
    croak "Invalid ISOTime: [$s]" if ($s =~ /\D/);
    $self->SUPER::set($s);  #invoke parent (ie ILLString) 'set'
}


#---------------------------------------------------------------