Algori...M07_001(3pm)

💖 CheckDigits::M07_001 — it's giving check digits, modulo 7, method 1 💖

okay bestie, sit down, hydrate, and let me tell you about CheckDigits::M07_001, a lil module living in the Algorithm::CheckDigits family (that's the 3pm perl manual situation, user contributed perl documentation, iykyk). It computes check digits using the modulo 7 method, version 1. She's small, she's mighty, she's iconic. 🎀

---

✨ SYNOPSIS ✨

use Algorithm::CheckDigits;

$m001 = CheckDigits('m001');

if ($m001->is_valid('1234567892')) {
      # do something
}

$cn = $m001->complete('123456789');    # $cn = '1234567892'

$cd = $m001->checkdigit('1234567892'); # $cd = '2'

$bn = $m001->basenumber('1234567892'); # $bn = '123456789'

literally that's it. that's the whole vibe. 🌸

---

🌈 DESCRIPTION 🌈

🧮 ALGORITHM 🧮

lowkey the whole thing is four steps, no cap:

1. All digits are added. 💅
2. All digits at even positions are added.
3. The sum of step 1 and 2 is taken modulo 7.
4. This is the check digit. periodt. ✨

🫶 METHODS 🫶

• is_valid($number) — spits out true only if $number consists solely of numbers and the last digit is a valid check digit according to the algorithm up there 👆. Any other situation? false. she's picky and honestly? valid.
• complete($number) — computes the check digit for $number and concatenates it right onto the end of $number. You get back the complete number with its check digit, or undef if $number does not consist solely of digits. no digits, no deal. 💀
• basenumber($number) — returns the basenumber of $number if $number has a valid check digit. Otherwise you get undef. that's the whole tea. 🍓
• checkdigit($number) — returns the check digit belonging to $number, or undef if $number does not consist solely of digits. 🦋

📦 EXPORT 📦

None by default. not a single thing, she's keeping it all to herself. 💜

---

👑 AUTHOR 👑

Mathias Weidner, "<mamawe@cpan.org>" — the mastermind, the main character, the one who did that. 🔥

---

🌟 SEE ALSO 🌟

• perl
• www.pruefziffernberechnung.de.

---

and that's the page fr fr 💖 this lil render was brought to you by perl v5.36.0, dated 2022-10-13 — she's giving Algori...M07_001(3pm) and she ATE, no crumbs, bye bestie 🎀✨🦋