NAME

Data::Focus::Lens::Dynamic - a lens that dynamically creates an appropriate lens for the target

SYNOPSIS

            

              
              
package Blessed::Data;
sub new {
    my ($class) = @_;
    return bless {
        secret_data => "hoge",
        accessible_by_lens => {
            a => "a for Blessed::Data"
        },
    }, $class;
}
sub Lens {
    my ($self, $param) = @_;
    require Data::Focus::Lens::HashArray::Index;
    return (
        Data::Focus::Lens::HashArray::Index->new(index => "accessible_by_lens", allow_blessed => 1)
        . Data::Focus::Lens::HashArray::Index->new(index => $param)
    );
}
package main;
use Data::Focus qw(focus);
use Data::Focus::Lens::Dynamic;
my $plain_data = { a => "a for plain_data" };
my $blessed_data = Blessed::Data->new;
my $lens = Data::Focus::Lens::Dynamic->new("a");
focus($plain_data)->get($lens);        ## => "a for plain_data";
focus($blessed_data)->get($lens);      ## => "a for Blessed::Data";
$plain_data->{a} = $blessed_data;
focus($plain_data)->get($lens, $lens); ## => "a for Blessed::Data";
            
          

DESCRIPTION

This is an implementation of Data::Focus::Lens, which dynamically creates an appropriate lens for the given target. The actual focusing job is delegated to the dynamically created lens.

CLASS METHOD

$lens = Data::Focus::Lens::Dynamic->new($param)

The constructor.

The $lens keeps the given $param. The $param is then passed to the dynamically created lens.

DELEGATION RULES

Here's how Data::Focus::Lens::Dynamic creates the lens object appropriate for the $target.

• If the $target is a blessed object and has Lens() method, it calls the Lens() method to obtain the appropriate lens.

  
              
  
                
                
  $appropriate_lens = $target->Lens($param)
              
            

  If Lens() method doesn't return a Data::Focus::Lens object, it throws an exception.

• If the $target is a non-blessed hash-ref or array-ref or undef, it creates a Data::Focus::Lens::HashArray::Index.

  
              
  
                
                
  $appropriate_lens = Data::Focus::Lens::HashArray::Index->new(index => $param)
              
            

• Otherwise, it does nothing. It creates no focal points.

OBJECT METHODS

apply_lens

See Data::Focus::Lens.

AUTHOR

Toshio Ito <debug.ito at gmail.com>