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	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;