lib/Message/URL.pm

package Message::URL;
use strict;
use warnings;

require Message::URI::URIReference;

sub new ($$) {
  shift;
  return Message::DOM::DOMImplementation->create_uri_reference ($_[0]);
} # new

sub new_abs ($$$) {
  shift;
  return Message::DOM::DOMImplementation->create_uri_reference ($_[0])
      ->get_absolute_reference ($_[1]);
} # new_abs

1;
1	wakaba	1.1	package Message::URL;
2			use strict;
3			use warnings;
4
5			require Message::URI::URIReference;
6
7			sub new ($$) {
8			shift;
9			return Message::DOM::DOMImplementation->create_uri_reference ($_[0]);
10			} # new
11
12			sub new_abs ($$$) {
13			shift;
14			return Message::DOM::DOMImplementation->create_uri_reference ($_[0])
15			->get_absolute_reference ($_[1]);
16			} # new_abs
17
18			1;