Add uri() method to file class.

Author: davorg

lib/App/Aphra/File.pm

@@ -7,6 +7,7 @@ use File::Path 'make_path';
 use File::Copy;
 use Text::FrontMatter::YAML;
 use Path::Tiny ();
+use URI;
 
 has [qw[path name extension ]] => (
   isa => 'Str',
@@ -88,6 +89,19 @@ sub full_name {
   return $full_name;
 }
 
+sub uri {
+  my $self = shift;
+
+  my $uri = $self->app->uri;
+  my $path = $self->destination_dir;
+  my $base = $self->app->site_vars->{base};
+  $path =~ s/^$base//;
+  $uri .= $path . $self->output_name;
+  $uri =~ s/index\.html$//;
+  
+  return URI->new($uri);
+}
+
 sub process {
   my $self = shift;
 

t/data1/site.yml

@@ -1 +1,2 @@
 uri : https://example.com/
+base : docs