[Midnightbsd-cvs] mports: Port.pm: add log method.

[ctriv at midnightbsd.org]

Log Message:
-----------
add log method.

Modified Files:
--------------
    mports/Tools/lib/Magus:
        Port.pm (r1.14 -> r1.15)

-------------- next part --------------
Index: Port.pm
===================================================================
RCS file: /home/cvs/mports/Tools/lib/Magus/Port.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -L Tools/lib/Magus/Port.pm -L Tools/lib/Magus/Port.pm -u -r1.14 -r1.15
--- Tools/lib/Magus/Port.pm
+++ Tools/lib/Magus/Port.pm
@@ -48,7 +48,6 @@
 __PACKAGE__->has_many(categories => [ 'Magus::PortCategory' => 'category' ]);
 __PACKAGE__->has_many(events => 'Magus::Event');
 
-
 __PACKAGE__->set_sql(ready_ports => 'SELECT __ESSENTIAL__ FROM ready_ports WHERE run=?');
 
 
@@ -201,7 +200,19 @@
 }
 
 
+=head2 $port->log
+
+Returns the log data for this port, if any.  Returns undef if there is no log.
 
+=cut
 
+sub log {
+  require Magus::Log;
+  
+  my ($self) = @_;
+  return $self->{__log} if exists $self->{__log};
+  my $log = Magus::Log->retrieve(port => $self) or return;
+  return $self->{__log} = $log->data;
+}
 1;
 __END__