What part don't you understand?

package Greet::Repeat;

sub new {
    my $class    = shift;
    my $self     = {
        greeting => shift,
        repeat   => shift,
    };
    return bless $self, $class;
}

sub greet {
    my $self = shift;
    print ($self->{greeting} x $self->{repeat});
}

1;
[download]

doesn't understand the role of shift and bless, completely; where we have greeting and repeat are being shift.

#!/bin/perl


package first;
use strict;
use warnings;

sub new{
    my $class = shift;
    my $type = shift;
    return bless \$type, $class;
}

sub greet {
    my $type = shift;
    print "\n hello got something .. $$type \n";
}


1;


package AFactory;
use strict;
use warnings;

sub get_new
{
  my $class = shift;
  my $type = shift;
  return $class->new(@_);
}

1;


my $greeter = AFactory->get_new("first","dow dow");
$greeter->greet();
print "hellow\n";
[download]

!!!error is : Can't locate object method "new" via package "AFactory" at new.pl line 31.