Parse:...:Utils(3pm)

💖 Parse::Dia::SQL::Utils 💖

okay bestie, so this is a page from the User Contributed Perl Documentation collection — it's Parse:...:Utils(3pm), aka the little helper squad that lives inside Parse::Dia::SQL and does the boring-but-essential jobs so the main class can be its main character. ✨

---

NAME

Parse::Dia::SQL::Utils — the helper class for Parse::Dia::SQL. that's it, that's the job. 🫶

---

SYNOPSIS

  Not to be used directly.

like literally. do not touch. this is backstage. you do not go backstage. 🙈

---

DESCRIPTION

utility functions for Parse::Dia::SQL. a whole lil toolbox of them. let's go one by one, no skipping, we do NOT skip. 💅

---

set_default_pk

defines the primary key column names AND types, so that primary keys can be auto-generated in tables that need one but were too lazy to define one themselves. we love a helpful default. 👑

new

the constructor. no arguments. that's it. just vibes. ✨

new

yes bestie it's listed twice on this page. iconic behavior, we don't question it, we simply respect it. 💀

get_node_attribute_values

so picture this: you hand it a node that has dia:attribute nodes chilling inside it. it walks through those dia:attribute nodes, finds the ones with attribute name='...', and hands you back the string values. 🎀

@infosToGet is an array of strings, where the first character is the data type to get and the remaining characters are the name to parse for. legal first characters are:

a = alpha
9 = numeric
b = boolean

example: aname, 9dollars, bkillOrNot

get_string_from_node

if it looks like <thingy><dia:string>value</dia:string></thingy> then we pull the value part out for you, given that the node is thingy. extraction queen. 🧚

get_value_from_object

give it an object, a node name, an attribute name, an attribute value, and the type of value you want back — it finds the info and returns it. 🔥

get_node_from_object

give it an object, a node name, an attribute name, and an attribute value — it returns the node that has all of those things. the full package. ⭐

name_case

transforms the case of names for name comparisons, matching whatever the database is doing. it leaves the name unchanged if -C (preserve case) is in effect. heads up: only sybase is known to be case sensitive. iykyk. 🌸

get_num_from_node

returns the value part of <dia:enum val="value"></thingy>. 🍓

get_bool_from_node

returns the value part of <thingy><dia:boolean val="value"></thingy>. 🍓

classify_multiplicity

looks at a multiplicity descriptor and classifies it as one of these four:

• 'one' — 1, or 1..1
• 'zone' — 0..1
• 'many' — n..m, n..*, where n > 1, m >= n
• 'zmany' — 0..n, 0..*, where n > 1

vibe check complete. 💜

attlist_from_names

generates a list of attributes from a comma-separated list of names, by looking up a class' attribute table. 🌈

names_from_attlist

the glow-up in reverse: generates a comma-separated list of attribute names from a list of attributes. 🌈

check_att_list_types

checks that a list of primary key attributes has types corresponding to the types in a list of foreign key attributes. making sure everybody matches. 🎀

get_base_type

checks that a list of primary key attributes has types corresponding to the types in a list of foreign key attributes. (yes, same sentence as above — that's what the page says, fr fr.)

returns the base type of some DMBS specific types — for example, in PostgreSQL serial is integer.

AFF note: this is better implemented in each sql formatter class. 💀

make_name

generates a longer name from the parts you supply. except for the first part, the first letter of each part gets capitalised. if lcFirstWord is set, then any initial string of capitals in the first part gets made lower case; otherwise the first part is left exactly as it is.

dies if $self->{db} is not set. no db, no name, no mercy. 😭

the @parts_org values are saved for "Desperation time" :) — yes, that's the actual quote, we keep it. 🫶

name_scramble

PSuda: a name scrambling helper function, for code that auto-generates names. takes one arg, which is the string to use for md5 hashing. it returns names that consist entirely of underscores and alphanumeric characters, and that start with one or more alpha characters. 🔥

mangle_name

get a name to mangle, and mangle it to the length specified. avoid too much manglification if the name is only slightly long — but mangle a lot if it's a lot longer than the specified length. proportionate mangling, bestie. 💅

add_default_pk

for -p — adds a default primary key to a parsed table definition.

TODO: add a meaningful return value. 😭

add_default_fk

for -f — adds the missing parts of a default foreign key to a parsed table definition. ✨

---

and that's the whole page, no notes, we ate. 🍽️💅

cute lil sign-off time: this one's riding with perl v5.36.0, dated 2022-11-19, and it's filed under Parse:...:Utils(3pm). go forth and parse, my love. 🦋💖