Graphi...ntList(3pm)

💖 Graphi...ntList(3pm) — aka Graphics::Primitive::ComponentList 💖

okay bestie, this is the manual page for Graphics::Primitive::ComponentList, and it's giving User Contributed Perl Documentation energy. pull up a chair, grab a boba, we're learning about component lists together and it's gonna be adorable. 🧋✨

---

🌸 NAME 🌸

Graphics::Primitive::ComponentList — it's a List of Components. that's the whole name. short, sweet, iconic. 💅

---

🦋 DESCRIPTION 🦋

So basically this thing maintains a list of components and their constraints. that's its whole job, and it does it well. 😌

and here's the tea: it's implemented as a class instead of just being a plain array, specifically so it can do functionality above and beyond a simple array. no cap. a regular array could never. 👑

---

✨ SYNOPSIS ✨

here's the vibe, literally just two lines of code and you're already main character:

my $c = Graphics::Primitive::ComponentList->new;
$c->add_component($comp, $constraint);

my $cindex = $c->find_component($comp->name);

see? slay. 🎀

---

🫶 METHODS 🫶

🌈 Constructor

• new — creates a new Container. fresh start, clean slate, new era. ✨

💜 Instance Methods

• add_component ($component, $constraint) — adds a component to the list. returns a true value if the component was added successfully. a second argument may be required, so please consult the POD for your specific layout manager implementation — fr fr, go check, don't guess. 🙈

and before the component actually gets added, it's passed to the validate_component method. if validate_component does not return a true value, then the component is not added. it's a whole vibe check and some components simply do not pass. 💀

• clear — reset components and constraints to empty arrayrefs. it's giving factory reset. 🌸
• component_count — returns the number of components in this list. math girlie behavior. 🔢
• constraint_count — returns the number of constraints in this list. also math, also girlie. ✨
• each — calls the supplied CODEREF for each component in this list, passing the component and it's constraints as arguments. 🌀

my $flist = $list->each(
  sub{
      my ($component, $constraint) = @_; $comp->class('foo)
  }
);

• find — returns a new ComponentList containing only the components for which the supplied CODEREF returns true. the coderef is called for each component and is passed the component and it's constraints. undefined components (the ones left around after a remove_component) are automatically skipped — we don't see them, they don't exist. 🙈

my $flist = $list->find(
  sub{
    my ($component, $constraint) = @_; return $comp->class eq 'foo'
  }
);

and if no matching components are found, a new list is still returned, so that simple calls like $container->find(...)->each(...) don't explode. 💥➡️😌 safety first, bestie.

• find_component — returns the index of the first component with the supplied name. returns undef if no component with that name is found. if it's not there, it's not there. periodt. 💅
• get_component — get the component at the specified index. 📍
• get_constraint — get the constraint at the specified index. 📍✨
• remove_component — removes a component and it's constraint. components must have names to be removed — no name, no removal, that's the rule. returns an arrayref of Components that were removed. bye bye, we'll miss you. 🦋

---

👑 AUTHOR 👑

Copyright 2008-2009 by Cory G Watson. respect the icon who built this. 🫶

---

💀 BUGS 💀

please report any bugs or feature requests to bug-geometry-primitive at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Geometry-Primitive.

ngl this part is kind of cute — I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. it's a whole group chat situation, mutual updates, we love to see it. 😭💖

---

🎀 COPYRIGHT & LICENSE 🎀

Copyright 2008-2009 by Cory G Watson.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. 💜

---

and that's the whole page, bestie!! 🌟 this one came from the perl v5.34.0 era, dated 2022-06-14, and it lives in the User Contributed Perl Documentation section — so when you cite it, that's the origin story. go forth and manage your components, you absolute legend. 💅✨🦋🎀💖