From b48b7742cf820b3c5cf485cc793057661d4cd3fb Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Fri, 22 Sep 2017 03:32:51 +0100
Subject: [PATCH] suppress "...at line..." in _croak if end newline

---
 lib/Function/Parameters.pm |  3 ++-
 t/croak.t                  | 28 +++++++++++++++++++++++++++-
 2 files changed, 29 insertions(+), 2 deletions(-)

diff --git a/lib/Function/Parameters.pm b/lib/Function/Parameters.pm
index 137cca5..7f83463 100644
--- a/lib/Function/Parameters.pm
+++ b/lib/Function/Parameters.pm
@@ -8,7 +8,8 @@ use Scalar::Util qw(blessed);
 
 sub _croak {
     my (undef, $file, $line) = caller 1;
-    die @_, " at $file line $line.\n";
+    push @_, " at $file line $line.\n" unless $_[-1] =~ /\n\z/;
+    die @_;
 }
 
 use XSLoader;
diff --git a/t/croak.t b/t/croak.t
index b5b26fc..b09681e 100644
--- a/t/croak.t
+++ b/t/croak.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More tests => 12;
+use Test::More tests => 13;
 use Test::Fatal;
 
 use Function::Parameters {
@@ -56,3 +56,29 @@ is exception { Crabs::worngkw4 },                 "In fun takekw: no such named
 
 is exception { Crabs::taket "X" }, "In fun taket: parameter 1 (\$x): A failure (Cool[Story]) of X at ${\__FILE__} line ${\__LINE__}.\n";
 is exception { Crabs::worngt1 },   "In fun taket: parameter 1 (\$x): A failure (Cool[Story]) of X at ${\__FILE__} line ${\($marker + 14)}.\n";
+
+use Function::Parameters {
+    fun    => { defaults => 'function_strict', reify_type => \&MyT2::reify_type },
+    method => 'method_strict',
+};
+
+{
+    package MyT2;
+
+    fun reify_type($type) {
+        bless [$type], __PACKAGE__
+    }
+
+    method check($value) { 0 }
+
+    method get_message($value) {
+        "A failure ($self->[0]) of $value.\n"
+    }
+}
+
+{
+    package Crabs2;
+    fun taket(Cool[Story] $x) {}
+}
+
+is exception { Crabs2::taket "X" }, "In fun taket: parameter 1 (\$x): A failure (Cool[Story]) of X.\n";