#!perl
use strict;
use warnings;
use File::Spec::Link ();
my $VERSION = $File::Spec::Link::VERSION;
for my $link (@ARGV) {
    local $\ = "\n";
    print "$link linked to ",   File::Spec::Link->linked($link);
    print "$link resolves to ", File::Spec::Link->resolve($link);
    print "$link directory ",   File::Spec::Link->chopfile($link);
    print "$link relative to . ",
        File::Spec::Link->relative_to_file(File::Spec->curdir, $link);
    # use Cwd::abs_path()
    print "$link path resolved: ",
        File::Spec::Link->resolve_path($link);
    # tries to use Cwd::abs_path()
    print "$link fully resolved: ",
        File::Spec::Link->full_resolve($link);
    # without using Cwd
    print "$link all resolved: ",
        File::Spec::Link->resolve_all($link);
}
# $Id$