Changeset 10350

Show
Ignore:
Timestamp:
04/24/08 22:44:06 (7 years ago)
Author:
tokuhirom
Message:

added comments.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/HTTPx-Dispatcher/trunk/lib/HTTPx/Dispatcher/Rule.pm

    r10349 r10350  
    1717} 
    1818 
     19# compile url pattern to regex. 
     20#   articles/:year/:month => qr{articles/(.+)/(.+)} 
    1921sub compile { 
    2022    my ($self, $pattern) = @_; 
     
    3234sub match { 
    3335    my ($self, $uri) = @_; 
    34  
    35     # articles/:year/:month => qr{articles/(.+)/(.+)} 
    3636 
    3737    if ($uri =~ $self->re) {