experimental direct substr support

[perlmod.git] / perlmod-test / src / pkg142.rs

diff --git a/perlmod-test/src/pkg142.rs b/perlmod-test/src/pkg142.rs
index 964e94d4e335c4382c7095e51be30c6e4bd692e7..252b472ece3d3fdc925c4af3426586cce0e6cb90 100644 (file)
--- a/perlmod-test/src/pkg142.rs
+++ b/perlmod-test/src/pkg142.rs
@@ -80,6 +80,11 @@ mod export {
     fn testit(#[cv] cv: Value, arg: &str) {
         let _ = (cv, arg);
     }
+
+    #[export(raw_return)]
+    fn test_substr_return(#[raw] value: Value) -> Result<Value, Error> {
+        Ok(value.substr(3..6)?)
+    }
 }
 
 #[perlmod::package(name = "RSPM::EnvVarLibrary", lib = "x-${CARGO_PKG_NAME}-y")]