Add uri() method to file class.

davorg-cpan · Jun 14, 2024 · deaa98d · deaa98d
1 parent 34a0be8
commit deaa98d
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 0 deletions.
diff --git a/lib/App/Aphra/File.pm b/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;
 

diff --git a/t/data1/site.yml b/t/data1/site.yml
@@ -1 +1,2 @@
 uri : https://example.com/
+base : docs