mauke gave a bunch of nice reviews, and while working on input validation, I wrote this down:
defined($_[0]) && (reftype($_[0]) // '') eq 'CODE'
... the the fact undef might be returned from reftype() makes me want to use Paul's string equ operator[1] instead:
defined($_[0]) && reftype($_[0]) equ 'CODE'
[1]: https://metacpan.org/pod/Syntax::Operator::Equ
#WIP
#Perl
gugod /
npub1nm…5dacm
2024-07-08 13:39:21
in reply to nevent1q…qzge
Author Public Key
npub1nm8e8x7qrurlmpslzv63rsr3x7qx2faux2qk2mj28ajhxyaa78msk5dacmSeen on
wss://relay.nostr.bandPublished at
2024-07-08 13:39:21Event JSON
{
"id": "96e284990e9b5dc789817e2dad336feb0f6fa279ac0cced46fa58dc755266e98",
"pubkey": "9ecf939bc01f07fd861f133511c07137806527bc3281656e4a3f657313bdf1f7",
"created_at": 1720445961,
"kind": 1,
"tags": [
[
"t",
"perl"
],
[
"t",
"wip"
],
[
"proxy",
"https://g0v.social/@gugod/112751146534393687",
"web"
],
[
"e",
"855b27b35b86ad52e181a8f022cb7967489a93d9660fa40bd658e05c3332a2a7",
"",
"root"
],
[
"p",
"9ecf939bc01f07fd861f133511c07137806527bc3281656e4a3f657313bdf1f7"
],
[
"proxy",
"https://g0v.social/users/gugod/statuses/112751146534393687",
"activitypub"
],
[
"L",
"pink.momostr"
],
[
"l",
"pink.momostr.activitypub:https://g0v.social/users/gugod/statuses/112751146534393687",
"pink.momostr"
],
[
"expiration",
"1723107174"
]
],
"content": "mauke gave a bunch of nice reviews, and while working on input validation, I wrote this down:\n\n defined($_[0]) \u0026\u0026 (reftype($_[0]) // '') eq 'CODE'\n\n... the the fact undef might be returned from reftype() makes me want to use Paul's string equ operator[1] instead:\n\n defined($_[0]) \u0026\u0026 reftype($_[0]) equ 'CODE'\n\n[1]: https://metacpan.org/pod/Syntax::Operator::Equ\n\n#WIP\n#Perl",
"sig": "14fd650f26b57190d581af184c0dfc1e825f6cc3a4cc9f3b730a5abf000d5e5b75c449e9892701f37f94aa3cd75b0369009366279090db74a138e8b151a8df36"
}