Changeset 1982

Show
Ignore:
Timestamp:
09/27/06 00:10:18
Author:
miyagawa
Message:

0.02 of URI::urn::uuid. Added docs/tests

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • URI-urn-uuid/trunk/Changes

    r1936 r1982  
    11Revision history for Perl extension URI::urn::uuid 
     2 
     3  0.02  Tue Sep 26 23:56:52 JST 2006 
     4        - Added doc and test how to create new urn:uuid  
    25 
    36  0.01  Fri Sep  8 02:18:32 2006 
  • URI-urn-uuid/trunk/lib/URI/urn/uuid.pm

    r1936 r1982  
    22 
    33use strict; 
    4 our $VERSION = '0.01'; 
     4our $VERSION = '0.02'; 
    55 
    66use base qw(URI::urn); 
     
    3737  $uri->uuid;        # f81d4fae-7dec-11d0-a765-00a0c91e6bf6 
    3838  $uri->uuid_binary; # in 128 bit binary form of Data::UUID 
     39 
     40  $uri = URI->new("urn:uuid:"); 
     41  $uri->uuid( lc Data::UUID->new->create_str ); 
    3942 
    4043=head1 DESCRIPTION 
  • URI-urn-uuid/trunk/t/01_uuid.t

    r1936 r1982  
    1818is $uri->uuid_binary, undef, "invalid uuid format - undef"; 
    1919 
     20$uri = URI->new("urn:uuid:"); 
     21$uri->uuid("f81d4fae-7dec-11d0-a765-00a0c91e6bf6"); 
     22is $uri->uuid, "f81d4fae-7dec-11d0-a765-00a0c91e6bf6"; 
     23