1 files changed, 8 insertions, 0 deletions
diff --git a/t/Mock/Twilio.pm b/t/Mock/Twilio.pm
index b35166704..eaad30b76 100644
--- a/t/Mock/Twilio.pm
+++ b/t/Mock/Twilio.pm
@@ -7,6 +7,14 @@ has texts => (
     default => sub { [] },
 );
 
+sub get_text_code {
+    my $self = shift;
+    my $text = shift @{$self->texts};
+    return unless $text;
+    my ($code) = $text->{Body} =~ /(\d+)/;
+    return $code;
+}
+
 sub dispatch_request {
     my $self = shift;