view release on metacpan or  search on metacpan

lib/Catalyst/Model/DBI/SQL/Library.pm  view on Meta::CPAN

      }
    }
  }
}

sub _extract_mtime {
  my ( $self, $source ) = @_;
  
  my $mtime;
  if (-r $source) {
    $mtime = return (stat(_))[9];
  } else {
    $self->{log}->debug(
      qq/couldn't extract modification time for path: "$source"/
    ) if $self->{debug} && $self->{loglevel} >= $self->LOG_LEVEL_BASIC;
  }
  return $mtime;
}

=item $self->dbh