소스 검색

Added skels for future utility methods

Alois Mahdal (@azzgoat) 11 년 전
부모
커밋
c0c5b0c9f6
1개의 변경된 파일12개의 추가작업 그리고 0개의 파일을 삭제
  1. 12
    0
      lib/SugarTrail/STM.pm

+ 12
- 0
lib/SugarTrail/STM.pm 파일 보기

@@ -52,4 +52,16 @@ sub parse_body {
52 52
     return scalar @{ $self->{steps} };
53 53
 }
54 54
 
55
+# skel: matches if cond has m
56
+sub matches {
57
+    my $cond = shift;
58
+    my $args = shift;
59
+    $cond =~ m/m/;
60
+}
61
+
62
+# skel: returns time (might be useful in absence of VCS)
63
+sub get_current_revision {
64
+    return time;
65
+}
66
+
55 67
 1;