chore: restore original directory structure (project under code-review-graph-main/)

2026-08-31 13:08:20 +08:00
parent ecc55158c1
commit ecfd03a21c
404 changed files with 0 additions and 0 deletions
@@ -0,0 +1,33 @@
+use strict;
+use warnings;
+use File::Basename;
+
+package Animal;
+
+sub new {
+    my ($class, %args) = @_;
+    return bless \%args, $class;
+}
+
+sub speak {
+    my ($self) = @_;
+    return "...";
+}
+
+package Dog;
+
+sub new {
+    my ($class, %args) = @_;
+    my $self = Animal::new($class, %args);
+    return $self;
+}
+
+sub fetch {
+    my ($self, $item) = @_;
+    return "Fetched $item";
+}
+
+sub bark {
+    my ($self) = @_;
+    print $self->speak() . "\n";
+}