package Data::Plist::Foundation::NSURL;

use strict;
use warnings;

use base qw/Data::Plist::Foundation::NSObject URI::http/;

sub replacement {
    my $self = shift;
    my $uri = URI->new( $self->{"NS.relative"}, "http" );
    bless $uri, ( ref $self );
    return $uri;
}

sub serialize_equiv {
    my $self = shift;
    return { "NS.relative" => $self->as_string, "NS.base" => undef };
}

1;