Refactored arguments / method names according to terminology change

lib/SugarTrail/Repo.pm

@@ -1,7 +1,7 @@
 package SugarTrail::Repo;
 # provide access to STM objects
 #
-# * load_stm()
+# * load_master()
 
 use strict;
 use warnings;
@@ -20,16 +20,16 @@ sub new {
     return $class->new(%$args);
 }
 
-sub load_stm {
+sub load_master {
     my $self = shift;
     my $args = { @_ };
 
-    my $stm = SugarTrail::Template::Master->new();
-    $stm->{text} = $self->load_text(stm => $args->{stm})
+    my $master = SugarTrail::Template::Master->new();
+    $master->{text} = $self->load_text(source => $args->{source})
         or return;
-    $stm->{stm} = $args->{stm};
+    $master->{source} = $args->{source};
 
-    return $stm;
+    return $master;
 }
 
 1;

lib/SugarTrail/Repo/Filesystem.pm

@@ -29,10 +29,10 @@ sub load_text {
     my $args = { @_ };
 
     # load
-    my $fn = $self->{root} . $args->{stm};
+    my $fn = $self->{root} . $args->{source};
     my $fh;
     unless (open $fh, "<", $fn) {
-        $self->{last_error} = "cannot open STM file $fn for reading: $!";
+        $self->{last_error} = "cannot open master $fn for reading: $!";
         carp $self->{last_error};
         return;
     }

lib/SugarTrail/Template/Master.pm

@@ -98,7 +98,7 @@ sub generate_slave {
             if ($accept || scalar @{$slave_step->{warnings}});
     }
 
-    $slave->{meta}->{'Stm'} = $self->{stm};
+    $slave->{meta}->{'Stm'} = $self->{source};
     $slave->{meta}->{'Stm Revision'} = $self->get_current_revision();
     $slave->{meta}->{'Params'} = mkmymime($args);
 

t/Repo.t

@@ -12,17 +12,17 @@ require_ok( 'SugarTrail::Repo' );
 my $repo = SugarTrail::Repo->new(root => './t/data/strepo', vcs => 'git');
 ok($repo,           "repo is true");
 
-my $stm = $repo->load_stm(stm=>'/release/rc.stm');
-ok($stm,            "master is true");
+my $master = $repo->load_master(source=>'/release/rc.stm');
+ok($master,         "master is true");
 
-my ($hc,$bc) = $stm->parse();
+my ($hc,$bc) = $master->parse();
 is($hc, 6,  "parse() reported 6 headers");
 is($bc, 13, "parse() reported 13 non-header lines");
 
-my $sts = $stm->generate_slave({ proto => "imap", os => "wxx" });
-ok($sts,            "slave is true");
+my $slave = $master->generate_slave({ proto => "imap", os => "wxx" });
+ok($slave,          "slave is true");
 
-&helper::dmup(master=>$stm);
-&helper::dmup(slave=>$sts);
+&helper::dmup(master=>$master);
+&helper::dmup(slave=>$slave);
 
 done_testing();

t/Slave.t

@@ -10,8 +10,8 @@ use SugarTrail::Repo;
 my $repo = SugarTrail::Repo->new(root => './t/data/strepo', vcs => 'git');
 
 my $data;
-$data->{mp} = $repo->load_stm(stm=>'/selftest/positive/multiple_parameters.stm');
-$data->{mw} = $repo->load_stm(stm=>'/selftest/negative/multiple_warnings.stm');
+$data->{mp} = $repo->load_master(source=>'/selftest/positive/multiple_parameters.stm');
+$data->{mw} = $repo->load_master(source=>'/selftest/negative/multiple_warnings.stm');
 
 ok($data->{mp}, "multiple_parameters: master is true");
 ok($data->{mw}, "multiple_warnings: master is true");