Add uri()

Author: davorg

MANIFEST

@@ -15,6 +15,7 @@ t/05-vars.t
 t/data1/in/index.html.md
 t/data1/in/static.txt
 t/data1/layouts/page
+t/data1/site.yml
 t/data2/in/index.html.md
 t/data2/in/static.txt
 t/data2/in/test.html.md

Makefile.PL

@@ -21,6 +21,8 @@ WriteMakefile(
     'Text::FrontMatter::YAML' => 0,
     'Path::Tiny' => 0,
     'YAML::XS' => 0,
+    'Sys::Hostname' => 0,
+    URI      => 0,
   },
 
   META_MERGE    => {

lib/App/Aphra.pm

@@ -34,6 +34,8 @@ use Getopt::Long;
 use Carp;
 use Clone 'clone';
 use YAML::XS 'LoadFile';
+use Sys::Hostname;
+use URI;
 
 use App::Aphra::File;
 
@@ -163,6 +165,27 @@ sub _build_template {
   );
 }
 
+has uri => (
+  isa => 'URI',
+  is  => 'ro',
+  lazy_build => 1,
+);
+
+sub _build_uri {
+  my $self = shift;
+
+  return URI->new($self->site_vars->{uri}) if $self->site_vars->{uri};
+
+  my $host = $self->site_vars->{host} || hostname;
+  my $protocol = $self->site_vars->{protocol} || 'https';
+
+  my $uri = "$protocol://$host";
+  $uri .= ':' . $self->site_vars->{port} if $self->site_vars->{port};
+  $uri .= '/';
+
+  return URI->new($uri);
+}
+
 sub run {
   my $self = shift;
 

lib/App/Aphra/File.pm

@@ -113,6 +113,7 @@ sub process {
 
     $self->app->template->process($template, {
       page => ($front_matter->frontmatter_hashref // {}),
+      file => $self,
     }, $out)
       or croak $self->app->template->error;
   } else {

t/04-run.t

@@ -22,7 +22,9 @@ for ($outfile, $outfile2) {
   unlink $_ if -r $_;
 }
 
-App::Aphra->new->run;
+my $app = App::Aphra->new;
+is($app->uri, 'https://example.com/', 'Correct URI');
+$app->run;
 
 ok(-e $outfile, 'Got an output file');
 ok(-f $outfile, "... and it's a real file");

t/data1/site.yml

@@ -0,0 +1 @@
+uri : https://example.com/